Читайте каталог файлов txt построчно в R-фрейм данных с именами файлов в виде одного столбца

Question

У меня есть каталог текстовых файлов. Я хочу прочитать содержимое этих текстовых файлов построчно в R-фрейм данных. Текстовые файлы содержат неструктурированный текст. Желаемый вывод данных:

file; line
1.txt; "line 1 in 1.txt"
1.txt; "line 2 in 1.txt"
2.txt; "line 1 in 2.txt"
...

Я написал код ниже, но это приводит к ошибкам. Я также думаю, что есть более простой способ сделать это, например, readr а также dplyr,

files <- list.files(path="./data", pattern = "*.txt", full.names = TRUE) # read data folder txt files

my_lines <-list() # create temp list for reading lines
df <- data_frame( "file" = character(0), "line" = character(0))

for (file in files){
    my_lines <- readLines(file) # read lines from file into a list
    for (line in my_lines){
        df$file<-file
        df$fline<-line
    }
}

Answer 1

Альтернативное решение без цикла:

> file = list.files(path="C:/...", pattern = "*.txt",full.names=T)
> line = lapply(file,readLines) 
> file = unlist(mapply(rep,file,sapply(line,length),SIMPLIFY=FALSE,USE.NAMES=FALSE))
> df=data.frame(file=file,line=unlist(line))

настройка full.names в TRUE делает для довольно длинных имен файлов... Если вы установите рабочий каталог заранее, path и full.namesаргумент list.files() не будет необходимости, и ваш фрейм данных будет содержать только фактические имена файлов без пути.

Answer 2

Простое (но неэффективное) решение:

files <- list.files(path="./data", pattern = "*.txt", full.names = TRUE)
fls <- NULL
lns <- NULL
for (file in files) {
  my_lines <- readLines(file)
  for (line in my_lines) {
    fls <- c(fls, file)
    lns <- c(lns, line)
  }
}
df <- data.frame(file=fls, fline=lns)
print(df)

   file          fline
1 1.txt line1_in_1.txt
2 1.txt line2_in_1.txt
3 2.txt line1_in_2.txt
4 2.txt line2_in_2.txt