मैं एक चर नाम में एक वस्तु को कैसे लोड कर सकता हूं जिसे मैं आर डेटा फ़ाइल से निर्दिष्ट करता हूं?

Question 1

जब आप 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

Question 2

यदि आप किसी एकल ऑब्जेक्ट को सहेज रहे हैं, तो .Rdataफ़ाइल का उपयोग न करें, फ़ाइल का उपयोग करें .RDS:

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

Question 3

मैं निम्नलिखित का उपयोग करता हूं:

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

Question 4

आप एक नया वातावरण बना सकते हैं, .rda फ़ाइल को उस वातावरण में लोड कर सकते हैं, और वहां से ऑब्जेक्ट को पुनः प्राप्त कर सकते हैं। हालाँकि, यह कुछ प्रतिबंध लगाता है: या तो आप जानते हैं कि आपकी वस्तु का मूल नाम क्या है, या फ़ाइल में केवल एक ही वस्तु बचाई गई है।

यह फ़ंक्शन किसी आपूर्ति की गई .rda फ़ाइल से भरी हुई वस्तु लौटाता है। यदि फ़ाइल में एक से अधिक ऑब्जेक्ट है, तो एक मनमाना वापस आ जाता है।

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

Question 5

आप भी कुछ इस तरह की कोशिश कर सकते हैं:

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

Question 6

यदि कोई किसी सहेजे गए 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)

प्रिंटों:

[१] "arg का मान Value है"

और अलग स्रोत फ़ाइल TestSourceFile.R में

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

फिर, यह समाधान केवल तभी काम करता है यदि वास्तव में एक फ़ाइल है, यदि अधिक हैं, तो यह उनमें से एक को वापस कर देगा (शायद पहले, लेकिन यह गारंटी नहीं है)।

Question 7

यदि .Rdataफ़ाइल में कई चर हैं (जैसा कि मेरे क्रेडिट किसी उत्तर को संपादित करने के लिए कम है) विशिष्ट संस्करण के चयन की अनुमति देने के लिए मैं @ricardo से उत्तर का विस्तार कर रहा हूं । यह .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')

Question 8

एक वस्तु के साथ Rdata फ़ाइल

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