Konvertieren in RData-Format in einer Schleife mit verschiedenen Datenframe-Namen

Question

Ich wollte eine Schleife schreiben, um TXT-Dateien aus verschiedenen Ordnern in RData-Format zu konvertieren. Die Dateien haben denselben Namen, also wollte ich sie bedingt umbenennen und in einem Ordner speichern. Die Schleife erledigt den Job, speichert jedoch den gleichen Namen des Datenrahmens für alle Dateien. Gibt es einen besseren Weg, dies zu tun?

for (i in (sprintf("%02d", (seq(from=8, to=15))))) { 
    for (j in 1:4){ 
    load <- paste0("C:/Users/User/Desktop/data/20", i, "/20", i, ".", j, "kw/data.txt") 
    save <- paste0("data.20", i, ".", j, "kw") 
    save <- read.table(load, sep="|", header=T) 
    save(save, file=paste0("./data-r/data.20", i, ".", j, "kw.RData")) 
    }} 

Answer 1

Ich denke, die folgende Anpassung Ihres Codes sollte den Trick tun.

for (i in (sprintf("%02d", (seq(from=8, to=15))))) { 
    for (j in 1:4){ 
    load <- paste0("C:/Users/User/Desktop/data/20", i, "/20", i, ".", j, "kw/data.txt") 
    save <- paste0("data.20", i, ".", j, "kw") 
    assign(x = save, 
      value = read.table(load, sep="|", header=T)) 
    eval(bquote(
     save(.(as.name(save)), 
      file=paste0("./data-r/data.20", i, ".", j, "kw.RData")) 
    )) 
    eval(bquote(rm(.(as.name(save))))) 
    }} 

Die assign -Funktion sorgt dafür, dass der Inhalt der Datei auf den aktuellen Wert Ihrer save -Objekt zugeordnet ist.

Die eval + bquote + .() + as.name Konstruktion wird verwendet, um einen Anruf zu erstellen (und bewerten) an die save -function, so dass es nicht Ihre save -object nicht speichert, sondern speichern Sie das Objekt, dessen Name gespeichert in save.

Die Verwendung von rm am Ende ist enthalten, um zu vermeiden, dass Ihr Arbeitsbereich (und der Arbeitsspeicher) mit dem Inhalt aus den Dateien überladen wird.