আমি কোনও আর ডেটা ফাইল থেকে নির্দিষ্ট করে একটি ভেরিয়েবল নামের মধ্যে কীভাবে কোনও বস্তু লোড করতে পারি?

Question 1

আপনি যখন কোনও আর ডেটা ফাইলে ব্যবহার করে কোনও ভেরিয়েবল সংরক্ষণ saveকরেন, সেশনটিতে এটি যে নামে ছিল সেটিকে এটি সংরক্ষণ করে saved পরে যখন আমি এটি অন্য সেশন থেকে লোড করতে যাই, এটি একই নামে লোড করা হয়, যা লোডিং স্ক্রিপ্টটি সম্ভবত জানতে পারে না। এই নামটি লোডিং সেশনে একই নামের একটি বিদ্যমান ভেরিয়েবল ওভাররাইট করতে পারে। বিদ্যমান ভেরিয়েবলগুলি ক্লোবারিংয়ের ঝুঁকি ছাড়াই কোনও ডেটা ফাইল থেকে কোনও নির্দিষ্ট ফাইলের নিরাপদে লোড করার কোনও উপায় আছে কি?

উদাহরণ:

সংরক্ষণের সময়:

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

যদি কোনও সংরক্ষিত আরডিটা / আরডিএস / আরডিএ ফাইলের পরিবর্তে কোনও সরল উত্স ফাইলের সাহায্যে এটি করার চেষ্টা করে তবে সমাধানটি হং ওইয়ের সরবরাহ করা ফাইলের মতোই অনুরূপ is

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] "আর্গের মান 7"

এবং পৃথক উত্স ফাইল টেস্টসোর্সফিল.আর.

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

একটি বস্তুর সাথে আরডিটা ফাইল

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