Làm cách nào để tải một đối tượng vào một tên biến mà tôi chỉ định từ tệp dữ liệu R?

Khi bạn lưu một biến trong tệp dữ liệu R bằng cách sử dụng save, nó sẽ được lưu dưới bất kỳ tên nào mà nó có trong phiên đã lưu nó. Sau đó, khi tôi tải nó từ một phiên khác, nó sẽ được tải với cùng một tên, mà kịch bản tải không thể biết được. Tên này có thể ghi đè biến hiện có cùng tên trong phiên tải. Có cách nào để tải một đối tượng từ tệp dữ liệu vào một tên biến được chỉ định một cách an toàn mà không có nguy cơ làm tắc các biến hiện có không?

Thí dụ:

Đang lưu phiên:

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

Đang tải phiên:

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

Cách tôi muốn nó hoạt động:

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

Nếu bạn chỉ lưu một đối tượng, không sử dụng .Rdatatệp, hãy sử dụng .RDStệp:

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

Tôi sử dụng như sau:

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

Bạn có thể tạo một môi trường mới, tải tệp .rda vào môi trường đó và truy xuất đối tượng từ đó. Tuy nhiên, điều này áp đặt một số hạn chế: bạn biết tên ban đầu cho đối tượng của mình là gì hoặc chỉ có một đối tượng được lưu trong tệp.

Hàm này trả về một đối tượng được tải từ tệp .rda được cung cấp. Nếu có nhiều hơn một đối tượng trong tệp, một đối tượng tùy ý sẽ được trả về.

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

Bạn cũng có thể thử một cái gì đó như:

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

Trong trường hợp bất kỳ ai đang tìm cách thực hiện việc này bằng tệp nguồn thuần túy, thay vì tệp Rdata / RDS / Rda đã lưu, thì giải pháp rất giống với giải pháp được cung cấp bởi @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)

Bản in:

[1] "Giá trị của arg là 7"

Và trong tệp nguồn riêng TestSourceFile.R

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

Một lần nữa, giải pháp này chỉ hoạt động nếu có chính xác một tệp, nếu có nhiều tệp hơn, thì nó sẽ chỉ trả về một trong số chúng (có thể là tệp đầu tiên, nhưng điều đó không được đảm bảo).

Tôi đang mở rộng câu trả lời từ @ricardo để cho phép lựa chọn biến cụ thể nếu .Rdatatệp chứa nhiều biến (vì tín dụng của tôi thấp để chỉnh sửa câu trả lời). Nó thêm một số dòng để đọc đầu vào của người dùng sau khi liệt kê các biến có trong .Rdatatệp.

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

Tệp Rdata với một đối tượng

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