在R中，你如何評估...在調用函數中？

Question

如果我想知道什麼是存儲在R函數內的...的說法，我可以簡單地將其轉換爲一個列表，像這樣

foo <- function(...) 
{ 
    dots <- list(...) 
    print(dots) 
} 

foo(x = 1, 2, "three") 
#$x 
#[1] 1 
# 
#[[2]] 
#[1] 2 
# 
#[[3]] 
#[1] "three" 

我無法弄清楚什麼是如何評價...在調用函數中。在下一個示例中，我希望baz的內容返回...參數bar。

bar <- function(...) 
{ 
    baz() 
} 

baz <- function() 
{ 
    # What should dots be assigned as? 
    # I tried           
    # dots <- get("...", envir = parent.frame()) 
    # and variations of 
    # dots <- eval(list(...), envir = parent.frame()) 
    print(dots) 
} 

bar(x = 1, 2, "three") 

get("...", envir = parent.frame())回報<...>，這看起來很有希望，但我無法弄清楚如何提取任何從它有用。

eval(list(...), envir = parent.frame())引發錯誤，聲稱...使用不正確。

如何從bar檢索...？

Answer 1

想通了。我需要eval和substitute的組合。 baz應定義爲

baz <- function() 
{ 
    dots <- eval(substitute(list(...), env = parent.frame())) 
    print(dots) 
} 

Answer 2

這應該工作：

bar <- function(...) 
{ 
    baz(...=...) 
} 

baz <- function(...) 
{ 
    print(list(...)) 
} 

bar(x = 1, 2, "three") 

就分配給它的子功能。

或者，你可以指定省略號作爲父函數列表：

bar <- function(...) 
{ 
    bar.x <- list(...) 
    baz() 
} 

baz <- function() 
{ 
    dots <- get("bar.x", envir = parent.frame()) 
    print(dots) 
} 

bar(x = 1, 2, "three") 

這是同樣的想法，但因爲你覆蓋省略號我不會建議吧：

bar <- function(...) 
{ 
    ... <- list(...) 
    baz() 
} 

baz <- function() 
{ 
    dots <- get("...", envir = parent.frame()) 
    print(dots) 
} 

bar(x = 1, 2, "three") 

Answer 3

總之：不要。試圖重新定義R的範圍規則只會導致心痛和痛苦。