Bagaimana cara memuat objek ke dalam nama variabel yang saya tentukan dari file data R?

Saat Anda menyimpan variabel dalam file data R menggunakan save, itu disimpan dengan nama apa pun yang dimilikinya di sesi yang menyimpannya. Ketika saya nanti akan memuatnya dari sesi lain, itu dimuat dengan nama yang sama, yang mungkin tidak diketahui oleh skrip pemuatan. Nama ini dapat menimpa variabel yang ada dengan nama yang sama di sesi pemuatan. Apakah ada cara untuk memuat objek dengan aman dari file data ke dalam nama variabel tertentu tanpa risiko mengganggu variabel yang ada?

Contoh:

Sesi penyimpanan:

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

Memuat sesi:

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

Bagaimana saya ingin bekerja:

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

Jika Anda hanya menyimpan satu objek, jangan gunakan .Rdatafile, gunakan .RDSfile:

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

Saya menggunakan yang berikut ini:

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

Anda dapat membuat lingkungan baru, memuat file .rda ke lingkungan tersebut, dan mengambil objek dari sana. Namun, hal ini memberlakukan beberapa batasan: entah Anda tahu apa nama asli objek Anda, atau hanya ada satu objek yang disimpan di file.

Fungsi ini mengembalikan objek yang dimuat dari file .rda yang disediakan. Jika ada lebih dari satu objek dalam file, satu objek akan dikembalikan.

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

Anda juga bisa mencoba sesuatu seperti:

# 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)

Jika ada yang ingin melakukan ini dengan file sumber biasa, daripada file Rdata / RDS / Rda yang disimpan, solusinya sangat mirip dengan yang disediakan oleh @Hong Ooi

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)

Cetakan:

[1] "Nilai arg adalah 7"

Dan dalam file sumber terpisah TestSourceFile.R

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

Sekali lagi, solusi ini hanya berfungsi jika hanya ada satu file, jika ada lebih banyak, maka itu hanya akan mengembalikan salah satunya (mungkin yang pertama, tetapi itu tidak dijamin).

Saya memperluas jawaban dari @ricardo untuk memungkinkan pemilihan variabel tertentu jika .Rdatafile tersebut berisi banyak variabel (karena kredit saya rendah untuk mengedit jawaban). Ia menambahkan beberapa baris untuk membaca masukan pengguna setelah mencantumkan variabel yang terdapat dalam .Rdatafile.

loadRData <- function(fileName) {
  #loads an RData file, and returns it
  load(fileName)
  print(ls())
  n <- readline(prompt="Which variable to load? \n")
  get(ls()[as.integer(n)])
}

select_var <- loadRData('Multiple_variables.Rdata')

File rdata dengan satu objek

assign('newname', get(load('~/oldname.Rdata')))