Я работаю над циклом, который использует функцию для каждого файла в папке

Question

Я новичок в r и у меня проблема с моим кодом.

Я пытаюсь зациклить функцию для каждого файла в папке и получить этот массажный результат:

Ошибка в 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  
    }

спасибо за помощь