相关疑难解决方法(0)

R语言有一个很好的功能,用于定义可以采用可变数量参数的函数.例如,该函数data.frame接受任意数量的参数,并且每个参数都成为结果数据表中列的数据.用法示例:

> data.frame(letters=c("a", "b", "c"), numbers=c(1,2,3), notes=c("do", "re", "mi"))
  letters numbers notes
1       a       1    do
2       b       2    re
3       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(...).但是,这两者并没有完全相同.(有关差异,请参阅答案中的示例.)任何人都可以告诉我它们之间的实际区别是什么,我应该使用哪一个？

我希望知道为什么message()比print()打印诊断信息更好.

例如,print()函数是打印R对象的更好选择,例如'iris',message()当我们想要连接字符串时,它更好,例如message("a", "b")短于print(paste0("a", "b")).

但是,我认为与上面列出的简单差异相比,存在更多差异.我已经阅读了这两种方法的文档

• http://stat.ethz.ch/R-manual/R-devel/library/base/html/message.html,
• http://stat.ethz.ch/R-manual/R-devel/library/base/html/print.html

但是,似乎它们并没有像我希望的那样提供信息.

如果有人告诉我们哪种情况message()比哪种情况更好print(),为什么我会感激.

如果我在命令行下运行R脚本(实际上是通过在VBA中调用运行它),如何将任何错误/警告消息输出到txt文件？