如何在編寫自己的函數時使用R的省略功能？R語言有一個很好的特性來定義函數，這些函數可以使用可變數量的參數。例如，函數data.frame接受任意數量的參數，每個參數將成為結果數據表中某列的數據。示例用法：> data.frame(letters=c("a", "b", "c"), numbers=c(1,2,3), notes=c("do", "re", "mi"))
letters numbers notes1 a 1 do2 b 2 re3 c 3 mi函數的簽名包括省略號，如下所示：function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE,
stringsAsFactors = default.stringsAsFactors()) {
[FUNCTION DEFINITION HERE]}我想編寫一個類似的函數，獲取多個值并將它們合并為一個返回值(以及一些其他處理)。為了做到這一點，我需要弄清楚如何“解壓”...函數中的參數。我不知道該怎么做。函數定義中的相關行data.frame是object <- as.list(substitute(list(...)))[-1L]我完全搞不懂。那么，如何將省略號從函數的簽名轉換成列表呢？更確切地說，我怎么寫get_list_from_ellipsis在下面的代碼里？my_ellipsis_function(...) {
input_list <- get_list_from_ellipsis(...)
output_list <- lapply(X=input_list, FUN=do_something_interesting)
return(output_list)}my_ellipsis_function(a=1:10,b=11:20,c=21:30)編輯似乎有兩種可能的方法來做到這一點。他們是as.list(substitute(list(...)))[-1L]和list(...)..然而，這兩種做法并不完全相同。(關于差異，請參見答案中的示例。)誰能告訴我他們之間的實際區別是什么，以及我應該使用哪一個？
3 回答
慕工程0101907
TA貢獻1887條經驗 獲得超5個贊
list()
> test.func <- function(...) { lapply(list(...), class) }> test.func(a="b", b=1)$a[1] "character"$b[1] "numeric"get_list_from_ellipsislist.
c()data.frame()...
LEATH
TA貢獻1936條經驗 獲得超7個贊
get_list_from_ellipsis1 <- function(...){
list(...)}get_list_from_ellipsis1(a = 1:10, b = 2:20) # returns a list of integer vectors$a [1] 1 2 3 4 5 6 7 8 9 10$b [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20get_list_from_ellipsis2 <- function(...){
as.list(substitute(list(...)))[-1L]}get_list_from_ellipsis2(a = 1:10, b = 2:20) # returns a list of calls$a1:10$b2:20my_ellipsis_function
- 3 回答
- 0 關注
- 1136 瀏覽
添加回答
舉報
0/150
提交
取消