r - 如何修复 R 中的合并 if (quote) args 问题？

Question

我需要合并多个excel文件。它们共享两列，但在所有文件中没有对这些列的观察。

我想按 Office 和 Machine 列合并它们。

编码

library(readxl)
library(tidyr)

setwd("...")

my_files <- list.files(pattern = "*.xlsx")
my_files

mba <-lapply(my_files, function (i){
  x=read_excel(i, sheet = "1")
  x$file=i
  x
})

mba[[1]]
mba <-do.call("merge.data.frame", mba, list(by=c("Office", "Machine")))
mba

我使用该代码，但有一个错误：

if (quote) args <- lapply(args, enquote) 中的错误：argumento no interpetable como lógico

我不知道如何解决它。

标签： r