Wie kann ich ein Objekt in einen Variablennamen laden, den ich aus einer R-Datendatei spezifiziere?

Beim speichern einer Variablen in einer R-Datendatei mit save es gespeichert ist, unter welcher Bezeichnung es hatte in der Sitzung, die Sie gespeichert. Wenn ich später gehen, um es zu laden von einer anderen Sitzung, es wird geladen, mit dem gleichen Namen, die das laden von script kann unmöglich wissen. Diesen Namen überschreiben Sie eine vorhandene variable mit dem gleichen Namen in der be-Sitzung. Gibt es einen Weg, um sicher laden Sie ein Objekt aus einer Datendatei in eine angegebene variable name ohne Risiko, Stress für die vorhandenen Variablen?

Beispiel:

Speichern session:

x = 5
save(x, file="x.Rda")

Be-Sitzung:

x = 7
load("x.Rda")
print(x) # This will print 5. Oops.

Wie ich das will:

x = 7
y = load_object_from_file("x.Rda")
print(x) # should print 7
print(y) # should print 5

InformationsquelleAutor der Frage Ryan Thompson | 2011-04-07

  1. 74

    Wenn Sie nur sparen ein einzelnes Objekt ist, verwenden Sie nicht einen .Rdata - Datei, verwenden Sie eine .RDS Datei:

    x <- 5
saveRDS(x, "x.rds")
y <- readRDS("x.rds")
all.equal(x, y)

    InformationsquelleAutor der Antwort hadley

  2. 28

    Können Sie erstellen Sie eine neue Umgebung, laden Sie das .rda-Datei in dieser Umgebung, und rufen Sie das Objekt aus. Dies gilt jedoch verhängen einige Einschränkungen: entweder Sie wissen, was der ursprüngliche name für Ihr Objekt ist, oder es ist nur ein Objekt in der Datei gespeichert.

    Diese Funktion gibt ein Objekt zurück, beladen von einem geliefert .rda-Datei. Wenn es mehr als ein Objekt in der Datei mit einem beliebigen zurückgegeben.

    load_obj <- function(f)
{
    env <- new.env()
    nm <- load(f, env)[1]
    env[[nm]]
}

    InformationsquelleAutor der Antwort Hong Ooi

  3. 20

    Benutze ich folgende:

    loadRData <- function(fileName){
#loads an RData file, and returns it
    load(fileName)
    get(ls()[ls() != "fileName"])
}
d <- loadRData("~/blah/ricardo.RData")

    InformationsquelleAutor der Antwort ricardo

  4. 18

    Könnte man auch versuchen, so etwas wie:

    # Load the data, and store the name of the loaded object in x
x = load('data.Rsave')
# Get the object by its name
y = get(x)
# Remove the old object since you've stored it in y 
rm(x)

    InformationsquelleAutor der Antwort by0

  5. 1

    Falls jemand sucht, dies mit einer einfachen Quellcode-Datei, anstatt eine gespeicherte Rdata/RDS/Rda-Datei, die Lösung ist sehr ähnlich zu der von @Ooi Hong

    load_obj <- function(fileName) {

  local_env = new.env()
  source(file = fileName, local = local_env)

  return(local_env[[names(local_env)[1]]])

}

my_loaded_obj = load_obj(fileName = "TestSourceFile.R")

my_loaded_obj(7)

    Drucke:

    [1] "mit dem Wert von arg ist 7"

    Und in der separaten Quelldatei TestSourceFile.R

    myTestFunction = function(arg) {
  print(paste0("Value of arg is ", arg))
}

    Wieder, diese Lösung funktioniert nur, wenn es genau eine Datei, wenn es mehr werden, dann wird es einfach nur wieder einer von Ihnen (wahrscheinlich die erste, aber das ist nicht garantiert).

    InformationsquelleAutor der Antwort user2711915

Schreibe einen Kommentar