मौजूदा Rdata फ़ाइल को अद्यतन करना

Question

मैंने खुद को 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) 
} 

हालांकि यह ओवरकिल जैसा प्रतीत होता है। क्या ऐसा करने के लिए एक बेहतर/आसान तरीका है?

एक तरफ, क्या मैं यह मानने में सही हूं कि फ़ंक्शन कॉल के बाद किसी फ़ंक्शन के दायरे में बनाया गया नया वातावरण नष्ट हो जाता है?

Answer 1

यहाँ एक से थोड़ा छोटा संस्करण है:

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 

Answer 2

मैं 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) 
}