为什么我不能在R中分配一个带有ifelse的函数？

Question

在R，当我试图通过ifelse分配的功能，我得到以下错误：

> my.func <- ifelse(cond, sqrt, identity) 
Error in rep(yes, length.out = length(ans)) : 
    attempt to replicate an object of type 'builtin' 

如果cond是FALSE，错误看起来相当的，R抱怨的

attempt to replicate an object of type 'closure' 

什么我可以做两个函数中的一个赋值给一个变量以及这里发生了什么？

Answer 1

因为ifelse是向量化的，并且没有为非向量化条件提供特殊情况，所以参数被复制为rep(...)。 rep(...)失败的关闭，如在例子中，但。

一种解决方法是temprarily包裹功能：

my.func <- ifelse(cond, c(sqrt), c(identity))[[1]] 

Answer 2

@Joshua Ulrich的评论是正确的答案。完成条件函数分配正确的方法是经典if...else，而不是矢量ifelse方法：

my.func <- if (cond) sqrt else identity