Lấy tên đối tượng từ bên trong một hàm

Question

Tiêu đề không phải là siêu mô tả vì vấn đề dài hơn một tiêu đề hợp lý mà tôi có thể nghĩ là có thể hiển thị.

Tôi muốn có một hàm lấy tên đối tượng từ các hàm khác có thể được sử dụng làm đối số trong hàm khác. Dưới đây là một nỗ lực barebones:

grab <- function(x) { 
    as.character(substitute(x)) 
} 

FUN <- function(foo, bar = grab(foo)) { 
    bar 
} 

FUN(mtcars) 

Ở đây tôi muốn của FUN để trả lại chuỗi ký tự "mtcars" nhưng nó sẽ trả về "foo". Làm thế nào có thể làm cho một chức năng lấy mà thực hiện điều này (tôi muốn làm điều này bởi vì tôi sẽ sử dụng điều này như là mặc định cho một tập tin txt/csv vv.Đó là một thiết lập thuận tiện. nhưng tôi muốn có một hàm lấy generic):

FUN2 <- function(foo, bar = as.character(substitute(bar))) { 
    bar 
} 

FUN2(mtcars) 

#================== 

FUN3 <- function(foo, bar) { 
    if(missing(bar)) bar <- foo 
    as.character(substitute(bar)) 
} 

FUN3(mtcars) 

cuộc sống-ish Bất dụ:

real_example <- function(obj, file = grab(obj)) { 
    write.csv(obj, file = sprintf("%s.csv", file)) 
} 

Answer 1

Bạn có thể thử sys.call để có được quyền truy cập vào các cuộc gọi mẹ:

## "which" is the number of the argument of interest 
grab <- function(which) { 
    ## which + 1, because [1] == name of function/call 
    ## and arguments are 2:n 
    as.character(sys.call(-1L)[which+1L]) 
} 

FUN <- function(foo, bar = grab(1L)) { 
    bar 
} 

FUN(mtcars) 
# "mtcars" 

Answer 2

Làm thế nào về điều này?

grab <- function(x) as.character(x[["foo"]]) 
FUN <- function(foo, bar=grab(match.call())) { bar } 

FUN(mtcars) 
# [1] "mtcars"