R: ifelse 把 numeric(0) 变成 NA

Question

有人可以向我解释为什么会发生以下情况吗？

ifelse(TRUE, numeric(0), 1)
> [1] NA

我当然希望数字（0）。我怀疑这是因为 ifelse 是矢量化的，例如以下作品，但我不明白到底发生了什么。

if (TRUE) numeric(0) else 1
#> numeric(0)

Answer 1

您可以访问 的实现ifelse，即

function (test, yes, no) 
{
    if (is.atomic(test)) {
        if (typeof(test) != "logical") 
            storage.mode(test) <- "logical"
        if (length(test) == 1 && is.null(attributes(test))) {
           #... let's skip this part..
        }
    }
    else test <- if (isS4(test)) 
        methods::as(test, "logical")
    else as.logical(test)
    ans <- test
    len <- length(ans)
    ypos <- which(test)
    npos <- which(!test)
    if (length(ypos) > 0L) 
        ans[ypos] <- rep(yes, length.out = len)[ypos]
    if (length(npos) > 0L) 
        ans[npos] <- rep(no, length.out = len)[npos]
    ans
}
<bytecode: 0x00000123e6b7d3a0>
<environment: namespace:base>

所以，是的，这是因为它ifelse是矢量化的 - 特别是沿着条件- 并且返回对象ans被初始化为与条件长度相同的向量。

ifelse状态的描述

ifelse 返回一个与 test 形状相同的值，该值填充有从 yes 或 no 中选择的元素，具体取决于 test 的元素是 TRUE 还是 FALSE。

让test <- TRUE。有趣的线路是

ypos <- which(test)
rep(numeric(0), length.out = 1)[ypos]