用于打开多个文本文件的功能

Question

我正在尝试创建一个循环遍历名称向量的函数，并打开与该向量相关的文件的连接。

我收到错误并且没有建立连接。在下面的代码中，x [i]应该成为博客，然后是新闻，然后是twitter。我不能以这种方式使用矢量变量。

有更好的方法吗？

**Error in UseMethod("close") :** 
  no applicable method for 'close' applied to an object of class "character"

dirPath <- "L:/Cousera/Capstone/week 2/data/"
fileNames <-  c("en_US.blogs.txt","en_US.news.txt", "en_US.twitter.txt")
datasetName <-c("blogs","news","twitter")


openDataFiles <- function (x, fn, dp) {

for (i in 1:length(fn)) {
   conn <- paste(dp,fn[i], sep = "")
   x[i] <- readLines(conn, encoding="UTF-8") 
   close(conn)
 }
   rm(conn)

}

openDataFiles(datasetName,fileNames,dirPath)