更新现有的Rdata文件

时间:2012-08-05 00:41:00

标签: r rdata

我发现自己处于需要更新先前使用save创建的Rdata文件中的一个或两个数据对象的位置。如果我不小心加载文件,我可能会忘记在文件中重新保存一些对象。作为一个例子,我正在处理一个包含一些存储在sysdata.rda中的对象的包(内部使用的查找表,我不想导出),只想担心更新单个对象。

如果有一种标准方法可以解决这个问题,我还没有成功,所以创建了我自己的功能。

resave <- function (..., list = character(), file = stop("'file' must be specified")) {
  # create a staging environment to load the existing R objects
  stage <- new.env()
  load(file, envir=stage)
  # get the list of objects to be "resaved"
  names <- as.character(substitute(list(...)))[-1L]
  list <- c(list, names)
  # copy the objects to the staging environment
  lapply(list, function(obj) assign(obj, get(obj), stage))
  # save everything in the staging environment
  save(list=ls(stage, all.names=TRUE), file=file)
}

虽然看起来有点矫枉过正。是否有更好/更简单的方法来做到这一点?

顺便说一句,我是否正确地假设函数范围内创建的新环境在函数调用后被销毁?

2 个答案:

答案 0 :(得分:24)

这是一个稍短的版本:

resave <- function(..., list = character(), file) {
   previous  <- load(file)
   var.names <- c(list, as.character(substitute(list(...)))[-1L])
   for (var in var.names) assign(var, get(var, envir = parent.frame()))
   save(list = unique(c(previous, var.names)), file = file)
}

我利用了load函数返回已加载变量名称的事实,因此我可以使用函数的环境而不是创建一个。使用get时,我小心翼翼地只查看调用函数的环境,即parent.frame()

这是一个模拟:

x1 <- 1
x2 <- 2
x3 <- 3
save(x1, x2, x3, file = "abc.RData")

x1 <- 10
x2 <- 20
x3 <- 30
resave(x1, x3, file = "abc.RData")

load("abc.RData")
x1
# [1] 10
x2
# [1] 2
x3
# [1] 30

答案 1 :(得分:0)

我在stackoverflow包中添加了@ flodel的重构版本的答案。它明确地使用环境更具防御性。

resave <- function(..., list = character(), file) {
  e <- new.env()
  load(file, e)
  list <- union(list, as.character(substitute((...)))[-1L])
  copyEnv(parent.frame(), e, list)
  save(list = ls(e, all.names=TRUE), envir = e, file = file)
}