ใน R จะรับชื่อวัตถุหลังจากส่งไปยังฟังก์ชันได้อย่างไร?

ฉันกำลังมองหาสิ่งที่ตรงกันข้ามของget().

เมื่อระบุชื่อวัตถุฉันต้องการให้สตริงอักขระที่เป็นตัวแทนของวัตถุนั้นแยกออกจากวัตถุโดยตรง

ตัวอย่างเล็กน้อยกับfooการเป็นตัวยึดสำหรับฟังก์ชันที่ฉันกำลังมองหา

z <- data.frame(x=1:10, y=1:10)

test <- function(a){
  mean.x <- mean(a$x)
  print(foo(a))
  return(mean.x)}

test(z)

จะพิมพ์:

  "z"

วิธีแก้ปัญหาของฉันซึ่งยากที่จะนำไปใช้ในปัญหาปัจจุบันของฉันคือ:

test <- function(a="z"){
  mean.x <- mean(get(a)$x)
  print(a)
  return(mean.x)}

test("z")

เคล็ดลับการทดแทนแบบเก่า:

a<-data.frame(x=1:10,y=1:10)
test<-function(z){
   mean.x<-mean(z$x)
   nm <-deparse(substitute(z))
   print(nm)
   return(mean.x)}

 test(a)
#[1] "a"   ... this is the side-effect of the print() call
#          ... you could have done something useful with that character value
#[1] 5.5   ... this is the result of the function call

แก้ไข: เรียกใช้ด้วย test-object ใหม่

หมายเหตุ: สิ่งนี้จะไม่ประสบความสำเร็จในฟังก์ชันโลคัลเมื่อชุดของรายการถูกส่งจากอาร์กิวเมนต์แรกไปยังlapply(และจะล้มเหลวเมื่อวัตถุถูกส่งผ่านจากรายการที่กำหนดให้ a for-loop) คุณจะสามารถแยก ".Names" - แอตทริบิวต์และลำดับของการประมวลผลจากผลลัพธ์ของโครงสร้างหากเป็นเวกเตอร์ที่มีชื่อที่กำลังประมวลผล

> lapply( list(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')} )
$a
$a[[1]]
[1] "X"    ""     "1L]]"


$b
$b[[1]]
[1] "X"    ""     "2L]]"

> lapply( c(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')} )
$a
$a[[1]]
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""                                            
[3] "1L]]"                                        


$b
$b[[1]]
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""                                            
[3] "2L]]"  

deparse(quote(var))

ความเข้าใจโดยสัญชาตญาณของฉันซึ่งคำพูดจะตรึง var หรือนิพจน์จากการประเมินผลและฟังก์ชัน deparse ซึ่งเป็นฟังก์ชันผกผันของฟังก์ชันแยกวิเคราะห์ทำให้สัญลักษณ์ที่ตรึงนั้นกลับไปเป็น String

โปรดทราบว่าสำหรับวิธีการพิมพ์ลักษณะการทำงานอาจแตกต่างกัน

print.foo=function(x){ print(deparse(substitute(x))) }
test = list(a=1, b=2)
class(test)="foo"
#this shows "test" as expected
print(test)

#this (just typing 'test' on the R command line)
test
#shows
#"structure(list(a = 1, b = 2), .Names = c(\"a\", \"b\"), class = \"foo\")"

ความคิดเห็นอื่น ๆ ที่ฉันเคยเห็นในฟอรัมแสดงให้เห็นว่าพฤติกรรมสุดท้ายเป็นสิ่งที่หลีกเลี่ยงไม่ได้ นี่เป็นเรื่องโชคร้ายหากคุณกำลังเขียนวิธีการพิมพ์สำหรับบรรจุภัณฑ์