我正在研究for循环，该循环在Folder中的每个文件上使用功能

Question

我是r的新手，我的代码有问题。

我尝试在Folder中的每个文件上循环执行一个函数，并得到以下提示：

  

create_tcorpus.character（x，doc_colum =“ id”，max_sentences = NULL，的错误：     “ doc_id”的长度与“ x”的长度不同

该功能可以正常工作，但不能在临时循环中使用。

    setwd(In) # set working directory
    #install.packages("corpustools")
    library(corpustools)


    fl <- list.files(pattern=("*.txt"), recursive=F, full.names=F) 
    d <- data.frame(value=NA)[numeric(0), ] 

    for (i in 1:length(fl)){ 

      x <- readLines(fl[i]) 


      tc <- create_tcorpus(x, doc_colum = "id",max_sentences = NULL,
                       max_tokens = NULL)
      #hits <- tc$search_features('"place space*"~5')
      kwic <- tc$kwic(query = "place places ", ntokens = 3)
      #head(kwic$kwic,3)

      d <- c(kwic)K

      write.table(d,Out,sep="\t", col.names = F, row.names = F, quote = F) #     output *.txt  
    }

感谢您的帮助