将多个 (21) 选项卡从 excel 导入 R：为什么我不断收到此错误消息“错误：“}”中的意外'}'？

Question

我一直在尝试将不同工作表中的数据导入 R，以便我可以使用它们来计算个人的 David 分数。

但是，由于某种原因，我不断收到此错误消息：

”错误：“}”中出现意外的“}”

在网上看了之后，我很困惑！

此外，它在行号旁边给出了一个 X，表示存在一个不匹配的左括号“（”，但我在任何地方都找不到任何不匹配的左括号？

下面是我的代码：

read_excel_allsheets <- function("C:/Users/James/Desktop/Animal Behaviour Project/Interaction Data/Dominance Only Interaction Data Final.xlsx" ) {
  Sheets <- readxl::excel_sheets("C:/Users/James/Desktop/Animal Behaviour Project/Interaction Data/Dominance Only Interaction Data Final.xlsx")
  Groups <- lapply(Sheets, function(X) readxl::read_excel("C:/Users/James/Desktop/Animal Behaviour Project/Interaction Data/Dominance Only Interaction Data Final.xlsx", sheet = X))
  names(Groups) <- Sheets 
} 

Answer 1

问题是您试图在函数中使用字符串作为参数。我会建议这样的东西：

read_excel_allsheets <- function(file_name = "C:/Users/James/Desktop/Animal Behaviour Project/Interaction Data/Dominance Only Interaction Data Final.xlsx" ) {
  Sheets <- readxl::excel_sheets(file_name)
  Groups <-    lapply(Sheets, function(X) readxl::read_excel(file_name, sheet = X))
  names(Groups) <- Sheets 
}