將函數應用於多個文件並逐行將數據保存到數據幀？

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) 
}