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

Question

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

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

现在，我甚至无法连接fileName，因为我从paste0函数得到错误“不能强制类型'封闭'到类型'字符''的向量。有想法该怎么解决这个吗？这是在各种.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文件在工作目录中，就应该正确读取它！