ฉันจะโหลดออบเจ็กต์เป็นชื่อตัวแปรที่ฉันระบุจากไฟล์ข้อมูล R ได้อย่างไร

เมื่อคุณบันทึกตัวแปรในไฟล์ข้อมูล 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

หากคุณแค่บันทึกวัตถุชิ้นเดียวอย่าใช้.Rdataไฟล์ให้ใช้.RDSไฟล์:

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

ฉันใช้สิ่งต่อไปนี้:

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

คุณสามารถสร้างสภาพแวดล้อมใหม่โหลดไฟล์. rda ลงในสภาพแวดล้อมนั้นและดึงข้อมูลจากที่นั่น อย่างไรก็ตามสิ่งนี้กำหนดข้อ จำกัด บางประการไม่ว่าคุณจะรู้ว่าชื่อดั้งเดิมของวัตถุของคุณคืออะไรหรือมีเพียงวัตถุเดียวที่บันทึกไว้ในไฟล์

ฟังก์ชันนี้ส่งคืนอ็อบเจ็กต์ที่โหลดจากไฟล์. rda ที่ให้มา หากมีมากกว่าหนึ่งวัตถุในไฟล์ระบบจะส่งคืนวัตถุโดยพลการ

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

คุณสามารถลองทำสิ่งต่างๆเช่น:

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

ในกรณีที่ใครก็ตามที่ต้องการทำสิ่งนี้ด้วยซอร์สไฟล์ธรรมดาแทนที่จะเป็นไฟล์ 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)

พิมพ์:

[1] "ค่าของ arg คือ 7"

และในซอร์สไฟล์ต่างหาก TestSourceFile.R

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

อีกครั้งวิธีนี้ใช้ได้เฉพาะเมื่อมีไฟล์เดียวเท่านั้นหากมีมากกว่านั้นจะส่งคืนไฟล์หนึ่งไฟล์ (อาจเป็นไฟล์แรก แต่ไม่รับประกัน)

ฉันกำลังขยายคำตอบจาก @ricardo เพื่ออนุญาตให้เลือกตัวแปรเฉพาะหาก.Rdataไฟล์มีตัวแปรหลายตัว (เนื่องจากเครดิตของฉันมีน้อยในการแก้ไขคำตอบ) เพิ่มบรรทัดเพื่ออ่านอินพุตของผู้ใช้หลังจากแสดงรายการตัวแปรที่มีอยู่ใน.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')

Rdata ที่มีวัตถุเดียว

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