109

当您使用 将变量保存在 R 数据文件中save时，它会以保存它的会话中的任何名称保存。当我稍后从另一个会话加载它时，它以相同的名称加载，加载脚本不可能知道。此名称可能会覆盖加载会话中的现有同名变量。有没有办法安全地将数据文件中的对象加载到指定的变量名中，而不会破坏现有变量？

例子：

保存会话：

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

加载会话：

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

我希望它如何工作：

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

8 回答 8

105

如果您只是保存单个对象，请不要使用.Rdata文件，请使用.RDS文件：

x <- 5
saveRDS(x, "x.rds")
y <- readRDS("x.rds")
all.equal(x, y)
于 2011-04-07T13:40:57.893 回答
46

我使用以下内容：

loadRData <- function(fileName){
#loads an RData file, and returns it
    load(fileName)
    get(ls()[ls() != "fileName"])
}
d <- loadRData("~/blah/ricardo.RData")
于 2014-08-22T21:44:54.860 回答
38

您可以创建一个新环境，将 .rda 文件加载到该环境中，然后从那里检索对象。但是，这确实施加了一些限制：要么您知道对象的原始名称是什么，要么文件中只保存了一个对象。

此函数返回从提供的 .rda 文件加载的对象。如果文件中有多个对象，则返回任意一个。

load_obj <- function(f)
{
    env <- new.env()
    nm <- load(f, env)[1]
    env[[nm]]
}
于 2011-04-07T07:47:35.640 回答
28

您也可以尝试以下方法：

# 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)
于 2013-09-17T16:13:00.453 回答
3

带有一个对象的 Rdata 文件

assign('newname', get(load('~/oldname.Rdata')))
于 2019-08-16T18:01:59.793 回答
3

与上面的其他解决方案类似，我将变量加载到环境变量中。这样，如果我从 加载多个变量.Rda，这些变量就不会弄乱我的环境。

load("x.Rda", dt <- new.env())

演示：

x <- 2
y <- 1
save(x, y, file = "mydata.Rda")
rm(x, y)

x <- 123
# Load 'x' and 'y' into a new environment called 'dt'
load("mydata.Rda", dt <- new.env())
dt$x
#> [1] 2
x
#> [1] 123
于 2021-01-26T15:06:14.317 回答
2

如果有人希望使用纯源文件而不是保存的 Rdata/RDS/Rda 文件来执行此操作，则该解决方案与@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)

印刷：

[1] “arg 的值为 7”

并在单独的源文件 TestSourceFile.R

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

同样，此解决方案仅在只有一个文件时才有效，如果有更多，则它只会返回其中一个（可能是第一个，但不能保证）。

于 2016-09-28T16:33:54.480 回答
1

如果文件包含多个变量，我正在扩展@ricardo 的答案以允许选择特定变量.Rdata（因为我的信用很低，无法编辑答案）。在列出.Rdata文件中包含的变量后，它会添加一些行来读取用户输入。

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')
于 2019-02-15T14:23:48.847 回答