R：使用粘贴功能读取文本文件

Question

我想这应该有一个简单的答案，但我还没有找到。基本上，我想制作一个调用和读取文本文件的函数。这是我所拥有的（我在 Shiny 函数的 ui.R 文件中写这个，但我不认为这是问题的一部分）：

popovers <- function(pop_name){
  fileName <- paste0("\'",pop_name,".txt\'")
  js <- readChar(fileName, file.info(fileName)$size))
  js
}

现在，我什至无法连接 fileName，因为我从 paste0 函数中得到错误 "cannot coerce type 'closure' to vector of type 'character'"。有想法该怎么解决这个吗？这是读取各种 .txt 文件的正确方法吗？

Answer 1

结合评论中的不同建议，我得到了答案。这是正确的代码：

popovers <- function(pop_name){
  fileName <- paste0(pop_name,".txt")
  js <- readChar(fileName, file.info(fileName)$size))
  js
}

我删除了 ____.txt 名称周围的多余引号，并确保将 popovers() 字符串传递给引号，例如 popovers("string")。只要 ___.txt 文件在工作目录中，就应该正确读取它！

R: reading in a text file with the paste function