R：如何使泛型函数读取作为列表传递的参数类？

Question

想象一下，我创建了一个课程＆＃34; stem＆＃34;用一些S3方法。我需要比较一些像

这样的函数的干对象

comp.default = function(smpc = x){
  message("I am default")
}

comp <- function(x) UseMethod("comp", x)

comp.stem = function(listOfStemObjects, print = TRUE, more args){ a bunch of things}

comp(list(stem1, stem2))

该函数不识别该类，因为第一个参数是类＆＃34; list＆＃34;而不是干。理想情况下，我想传递可变数量的对象stem1，stem2，..

任何帮助？

提前致谢，marco

Answer 1

comp <- function(x, ...) UseMethod("comp")

comp.stem <- function(x, ...)
{
    lst <- list(...)
    for(i in seq_along(lst))
    # do stuff with each additional object passed in
}

comp(stem1, stem2)