Ersetzen Sie den gesamten Text innerhalb einer Gruppe von Dateien

Question

Ich habe eine große Gruppe von Dateien. Ich möchte den gesamten Text in diesen Dateien löschen und eine neue Zeichenfolge einfügen, die ich mytext aufrufen.

Ich bin neu in R, aber ich habe einen R-Code geschrieben, der fast perfekt funktioniert. Es ist sehr chaotisch und ich bin mir sicher, dass ich unnötige Schritte unternehme. Darüber hinaus löscht es nicht ganz den ganzen Text wie ich will und hinterlässt Anführungszeichen, die ich nicht haben kann.

temp = list.files(pattern="*.Hdr") 

for(x in 1:length(temp)) { 
    data = read.csv(temp[x], header = FALSE) 
    data <- data[NULL, NULL] 
    write.csv(data, file = temp[x]) ## output new file 
} 
temp = list.files(pattern = "*.Hdr") 
mytext = "nrows 4096 
ncols 8192 
nbands 1 
nbits 16 
pixeltype signedint 
byteorder M 
layout dat 
ulxmap -130.517083333328 
ulymap 58.2329166666644 
xdim 0.00833333333 
ydim 0.00833333333" ## This is the variable I want to keep 

for(x in 1:length(temp)) { 
    data = read.csv(temp[x], header = FALSE) 
    data = paste(mytext) 
    write.csv(data, file = temp[x]) ## output new file 
} 

Meine resultierenden Tabellen schauen alle wie folgt aus:

"","x" 
"1","nrows 4096 
ncols 8192 
nbands 1 
nbits 16 
pixeltype signedint 
byteorder M 
layout dat 
ulxmap -130.517083333328 
ulymap 58.2329166666644 
xdim 0.00833333333 
ydim 0.00833333333" 

die fast perfekt, aber ich will nicht:

"","x", 
"1", 

auch nicht möchte ich die Anführungszeichen um mytext . Ich würde jemanden mit mehr Erfahrung schätzen, der auf meinen Fehler hinweist.

Answer 1

Was Sie sehen, sind die Spaltenüberschriften und Zeilennamen. Sie können diejenigen drehen zusammen mit der Angabe mit

write.csv(data, file = temp[x], header=F, row.names=F, quote=F)