R/resave.R

#' Appends, saves variables to RDA file
#' @param ... additional parameters
#' @param list a list
#' @param file a RDA file
#' @export
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)
}
f0nzie/rMRST documentation built on May 14, 2019, 1:44 p.m.