将函数应用于多个文件并逐行将数据保存到数据框？

Question

我使用for循环将多个函数应用于工作目录中的文本文件，然后使用writeLines函数将新文件写入目录。在每次迭代结束时，我想在一个名为d.f的数据框中记录文件名和行数。

我使用以下方法创建了一个数据框：

d.f <- (file_name,number_of_rows)

代码类似于：

my_files <- list.files(path="path to my wd")    
for (i in 1:length(my_files) { ..........
.........
.........
a <- readLines(my_files[i], skipNul=TRUE)
.........
.........
# here is the line I tried to add to record the data:
d.f <- rbind(my_files[i], length(a))
}

有关如何使这项工作的任何建议？

Answer 1

my_files <- list.files(path="path to my wd")
a <-  readLines(my_files[1], skipNul=TRUE)
d.f <- data.frame(my_files[1],nrow(a))
for (i in 2:length(my_files) { ..........
.........
.........
a <- readLines(my_files[i], skipNul=TRUE)
.........
.........
dummy <- data.frame(my_files[i],nrow(a))
names(dummy) <- names(d.f)
d.f <- rbind(d.f,dummy)
}