有没有办法将 R 对象传递给 read.csv？

Question

我有一个包中的 R 函数，我需要将文件路径作为参数传递，但它需要一个 csv，而我的文件是一个 xlsx。

我查看了函数的代码，它使用 read.csv 加载文件，但遗憾的是我无法对包进行任何更改。

有没有一种很好的方法来读取 xlsx 并将其传递给函数而不将其写入 csv 并让函数将其读回？

我在这里遇到了 read.csv 的 text 参数： Is there a way to use read.csv to read from a string value rather than a file in R? 这似乎可能是其中的一部分，但正如我所说，我无法更改功能。

Answer 1

也许您可以构建自己的函数来检查文件是否为xlsx，在这种情况下创建一个临时的csv 文件，将其提供给您的函数，然后将其删除。类似的东西

yourfunction = function(path){
  read.csv(path)
  head(path)
}

library(readxl)

modified_function = function(path){
  if(grepl{"\\.xlsx",path}){
    tmp <- read_xlsx(path)
    tmp_path <- paste0(gsub("\\.xlsx","",path),"_tmp.csv")
    write.csv(tmp,file = tmp_path)
    output <- yourfunction(tmp_path)
    file.remove(tmp_path)
  }else{
    output <- yourfunction(path)
  }
  return(output)
}

如果有帮助，这里可以看看如何只修改一个包的一个功能：How to modify a function of a library in a module