R代码帮助脚本不起作用，但控制台工作

Question

您好我正在尝试运行r脚本

loadData <- function()
{
  library(XLConnect)
  excel0157 <- loadWorkbook("C:\\Users\\\\Documents\\R\\data\\0157\\0157.xlsx")
  sheet_names <- getSheets(excel0157)
  c0157 <- readWorksheetFromFile("C:\\Users\\\\Documents\\R\\data\\0157\\0157.xlsx",sheet = sheet_names[1],region = "B4:B27", header = FALSE)
  for (i in 1:79) {
  c0157[i] <-readWorksheetFromFile("C:\\Users\\\\Documents\\R\\data\\0157\\0157.xlsx",sheet = sheet_names[i],region = "B4:B27", header = FALSE)
  }
  c0157ts1 <- as.numeric(c(t(c0157)))
}

但是，c0157ts1无法创建。如果我在控制台中运行c0157ts1 <- as.numeric(c(t(c0157)))，则会创建c0157ts1。

任何人都可以解释原因吗？