ich habe einen Datensatz und möchte ihn sukzessive einlesen (dies soll zur Simulation dienen). Ziel ist es aus dem Datensatz alle paar Sekunden eine neue Zeile einzulesen und das Zwischenergebnis zu sehen. Ich habe bisher folgenden Code, der jedoch nicht das tut, was ich möchte. Die print-Funktion ist nur zum Testen. Sie tut im Prinzip was ich möchte, sprich sie gibt mir alle paar Sekunden eine neue Zeile aus. Aber ich möchte die Zeilen speichern, das heißt alle paar Sekunden soll sich data2 von selbst aktualisieren und nicht erst am Ende genauso aussehen wie data1.
Viele Grüße
Code: Alles auswählen
set.seed(99)
data1 <- data.frame(person = sample(LETTERS[1:5], 50, T),
text = sample(stringi::stri_rand_lipsum(10), 50, T))
data2 <- data.frame(person = NA,
text = NA)
i = 1
while(TRUE) {
if(i == nrow(data1)+1) {
break
}
data2[i, ] <- data1[i, ]
print(data2[i, ])
Sys.sleep(3)
i = i + 1
}