r - rep() 函数中的函数

Question

为什么是

rep(message("TEST"),3)
rep(c(message("TEST")),3)

>
TEST
NULL
> 

不一样

c(message("TEST"),message("TEST"),message("TEST"))

>
TEST
TEST
TEST
NULL
> 

然后如何使用该rep()函数获得第二个结果？

编辑：

我们可以非常“方便地”使用：

invisible(lapply((rep(c(quote(message("TEST"))),3)),eval))
> 
TEST
TEST
TEST
> 

Answer 1

来自?rep：

'rep' 复制了 'x' 中的值。

来自的值为message("TEST")NULL。

你可以用例如检查这个

m <- message("TEST");
m;
#NULL
rep(m, 3);
#NULL
rep(NULL, 3);
#NULL

至于您的第二个问题，请参阅@docendodiscimus 的评论。