Skript nur Extraktion eins fünf von fünf

Question

Ich habe ein Verzeichnis mit 10 NCDF4-Dateien. Ich schrieb ein Skript, um die Datei mit mehr als 100 Beobachtungen in der Dateibeobachtungsdimension zu trennen. Ich möchte in eine Textdatei schreiben, die die Kriterien erfüllt. Aber wenn ich das Skript ausführe, wird nur der letzte der fünf, die die Kriterien erfüllen, in die Textdatei geschrieben. Ich sollte 5 Dateien haben. Was mache ich falsch Mein Skript unten:

x <- filenames <- list.files("D:/Rwork/Test", pattern = "*.nc", full.names = TRUE) 
file.create("stationstouse.data") 
for (i in x) { 
    filetoopen <- (i) 
    a <- nc_open(filetoopen) 
    D <- a$dim$obs$vals 
    z <- length(D) 
    if (z > 100) { 
     fileConn <- file("stationstouse.data") 
     write("\n",file = fileConn, append = TRUE) 
     write(fileConn, file = fileConn, append = TRUE) 
     close(fileConn) 
     print(i) 
    } 
    nc_close(a) 
} 

Answer 1

Versuchen Sie die Datei in „anhängen“ Modus zu öffnen:

fileConn <- file("stationstouse.data", "a") 

Answer 2

Gemäß der Dokumentation, write ist ein Wrapper um cat, und nach die Dokumentation für cat:

anfügen logisch. Wird nur verwendet, wenn die Argumentdatei der Name der Datei ist (und keine Verbindung oder "| cmd"). Wenn TRUE-Ausgabe an die Datei angehängt wird; Andernfalls wird der Inhalt der Datei überschrieben. Deshalb

ersetzen:

write("\n",file = fileConn, append = TRUE) 
write(fileConn, file = fileConn, append = TRUE) 

mit

write("\n",file = "stationstouse.data", append = TRUE) 
write(i, file = "stationstouse.data", append = TRUE) 

und Sie sollten mindestens mehr als eine Zeile der Ausgabe erhalten.

Hoffe, das hilft.