Wie überschreiben vorhandenen. Txt-Dateien nach For-Schleife

Question

Ich versuche, For-Schleife zu verwenden, um den ersten Teil jedes Textes zu entfernen und exportieren Sie den überarbeiteten Text mit write.table, aber in meinem Ordner habe ich festgestellt, write.table wird eine Reihe von generieren neue Dateien anstelle der ursprünglichen. Kann mir jemand zeigen, wie man vorhandene Dateien überschreibt?

for(i in 1:length(file.names)){ 
    text.v <- scan(file.names[i], what="character", encoding = "UTF-8") 
    novel.v <- paste(text.v, collapse=" ") 
    word.v <- gsub(".*</Header> ","", novel.v) 
    write.table(paste(word.v,collapse = " "), paste(file.names[i],".txt",sep=""), row.names=FALSE, col.names=FALSE, quote=FALSE) 
} 

Answer 1

Es scheint mir, dass Sie versuchen, Ihre Dateien mit zu schreiben 'zwei' Erweiterungen, weil Sie sie wie filenameWithExtension lesen und dann filenameWithExtension.txt schreiben. Wenn das der Fall ist, die Lösung ist es nur diese paste(file.names[i],".txt",sep="") zu diesem file.names[i] ändern.

Wenn ich falsch liege, sollten Sie uns ein Beispiel für den Inhalt von file.name zeigen.

Answer 2

in den Code können Sie die aktuelle Datei i mit

file.remove(paste0(file.names[i],".txt")) 

Und nach

write.table(paste(word.v,collapse = " "), paste(file.names[i],".txt",sep=""), row.names=FALSE, col.names=FALSE, quote=FALSE) 

Überprüfen Sie, ob Sie den Code entfernen, wenn die objetc paste(word.v,collapse = " ") korrekt Ihre origonal Datei ersetzen. Ich benutze, um diese Art von Schleifen zu machen, und ich muss mehrmals überprüfen die Struktur meiner neuen geschriebenen Datei (Anführungszeichen, NA's, Delims, usw.)