来自串联的 R 项目文件路径

Question

我正在学习 R 教程。我一直在研究一个函数，该函数的一部分是接受一个参数并使用它来定义一个在其中查找数据的目录。然后它必须加载该数据。

目前的工作如下:

getmonitor <- function(id, directory){

csvfile <- function(id) {
    if (id < 10) { 
        paste0(0,0,id,".csv")
    } else if (id < 100) {
        paste0(0,id,".csv")
    } else paste0(id,".csv")
}

foo <- read.csv(csvfile(id))

}

好吧。但我现在必须使用“directory”参数来定义必须从中读取 csv 文件的目录。我在这里尝试了各种方法都无济于事。

目前，如果假设数据位于工作目录中，则代码可以正常工作。我需要说“转到名为 (directory) 的目录，然后读取.csv。

包含所有数据文件的目录称为“specdata”，因此目录的参数为“specdata”。

我尝试了以下方法:

getmonitor <- function(id, directory){

  csvfile <- function(id) {
      if (id < 10) { 
          paste0(0,0,id,".csv")
      } else if (id < 100) {
          paste0(0,id,".csv")
      } else paste0(id,".csv")
  }

  filepath <- append(directory,"/",csvfile(id))

  foo <- read.csv(filepath)

 }

但随后我收到一条错误消息“Error in !after : invalid argument type”

我尝试了一些不同的方法，如果我剪切并粘贴所有代码，它可能会比帮助更困惑。

执行此操作的合乎逻辑的方法是什么？我的附加之路是否正确？如果不可以，我还应该起诉什么？我需要获取参数“directory”，然后从该目录加载数据。

Answer 1

getmonitor <- function(id, directory=getwd(), ...){

  csvfile <- sprintf("%03d.csv", id)

  filepath <- file.path(directory, csvfile)

  foo <- read.csv(filepath, ...)

  foo

 }