強制評估作爲參數傳遞給函數的對象

Question

我想將對象的值作爲參數傳遞給函數。

# This is my object 
anObject <- "an_unkown_string" 

# I would like to do the equivalent of: 
someFunc("an_unkown_string") 

# .. by somehow calling on the object containing the string 
someFunc(??? (anObject)) 

例如，下面的示例功能（基於save()）：

someFunc <- function(...) { 
    names <- as.character(substitute(list(...)))[-1L] 
    return(names) 
} 

# Ideally, the output would be: 
someFunc(??? (anObject)) 
[1] "an_unkown_string" 

我沒有訪問和修改someFunc 我曾嘗試以下，但沒有成功。

someFunc(Name_of_Object) 
someFunc(eval(Name_of_Object)) 
someFunc(evalq(Name_of_Object)) 
someFunc(force(Name_of_Object)) 
someFunc(eval(parse(text=Name_of_Object))) 

任何幫助表示讚賞。

Answer 1

如何

> do.call(someFunc, list(anObject)) 
[1] "an_unkown_string" 

或者你可以做一個包裝

myWrap <- function(...) { 
    do.call(someFunc, as.list(...)) 
} 

> myWrap(anObject) 
[1] "an_unkown_string" 

---

的另一種方式，從而構建調用和評價它：

> call("someFunc", anObject) 
someFunc("an_unkown_string") 
> eval(call("someFunc", anObject)) 
[1] "an_unkown_string" 

---

我想我應該提到的是?do.call說

的一些功能，如替代行爲，不會爲使用do.call評估功能一樣，如果他們從解釋評價。精確的語義目前尚未定義，可能會有變化。

然而，至少目前，anObject是當呼叫被構造（在調用call或do.call）來評價，所以substitute查找「an_unknown_string」而不是「anObject」。

Answer 2

我很困惑。你爲什麼試圖讓它比真實更復雜？

someFunc <- function(obj) { 
    return(obj) 
} 

> someFunc(anObject) 
[1] "an_unkown_string"