Speichern Sie Zeilen unabhängig voneinander als Textdateien in r

Question

Ich habe eine CSV-Datei mit einer Spalte, die verschiedene Teile des Textes in jeder Zeile enthält. Als Beispiel:

Text

Liebe so, wie es aussieht. Ok für den Preis. Ich wünschte, es hätte auch eine vordere Abdeckung .

Dies ist ein großartiger Fall. Die Farbe war der Site treu und sie ist so robust.

bestellte ich diesen Fall, weil ich ein weißes iPhone 3G S und es ist ein wenig auf der Rückseite

gekratzt haben, was ich zu Code versucht, eine Schleife ist jede einzelne dieser Textzeilen als sparen unabhängige TXT-Datei (mit write.table, denke ich).

Mit anderen Worten, wenn es 1.000 Zeilen mit verschiedenen Textteilen gibt, würde ich gerne 1.000 unabhängige. Txt-Dateien haben.

Answer 1

Klingt wie ein Chaos, aber warum nicht einfach:

inp <- readLines(file= ..filename..) 
setwd(..path_to_dir..) 
for (i in seq(length(inp)){ cat(inp[i], file=paste0(i, ".txt")) }