Funktion auf mehrere Dateien anwenden und Daten zeilenweise in den Datenrahmen speichern?

Question

Ich benutze for Schleife, um mehrere Funktionen auf Textdateien in meinem Arbeitsverzeichnis anzuwenden, dann schreibe die neuen Dateien in das Verzeichnis mit writeLines Funktion. Am Ende jeder Iteration möchte ich den Dateinamen und die Anzahl der Zeilen in einem Datenrahmen namens d.f aufzeichnen.

Ich habe einen Datenrahmen mit:

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

diese Arbeit Irgendwelche Vorschläge, wie man:

d.f <- (file_name,number_of_rows) 

Der Code etwas aussieht?

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