library(plyr)のeach関数にバグがある件→作者さんに報告しました

複数の関数を適用した結果を返すeach関数 - Seeking for my unique color.の続き。library(plyr)のeach関数にバグというかよろしくない実装があるのをかつどんさんが見つけた。よろしくないことが起こる例としては

> result <- 1:10
> each(length, mean, var)(rnorm(100))
      length         mean          var 
1.000000e+02 3.840182e-03 1.109176e+00 
> result
[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

というようなもの。each関数が関係ない変数に影響を与えてしまっている!!原因はソースを読むと分かる。

> each
function (...) 
{
    fnames <- laply(match.call()[-1], deparse)
    fs <- list(...)
    if (length(fs[[1]]) > 1) {
        fs <- fs[[1]]
        snames <- as.list(match.call()[2])[[1]]
        fnames <- unlist(lapply(as.list(snames)[-1], deparse))
    }
    char <- laply(fs, is.character)
    fnames[char] <- fs[char]
    fs[char] <- llply(fs[char], match.fun)
    unames <- names(fs)
    if (is.null(unames)) 
        unames <- fnames
    unames[unames == ""] <- fnames[unames == ""]
    n <- length(fs)
    proto <- NULL
    if (n == 1) {
        function(x, ...) {
            res <- fs[[1]](x, ...)
            if (length(res) == 1) 
                names(res) <- unames
            res
        }
    }
    else {
        function(x, ...) {
            if (is.null(proto)) {
                result <<- vector("list", length = n)
                names(result) <- unames
                for (i in 1:n) result[[i]] <- fs[[i]](x, ...)
                proto <<- list_to_vector(result)
            }
            else {
                for (i in 1:n) proto[[i]] <- fs[[i]](x, ...)
            }
            proto
        }
    }
}
<environment: namespace:plyr>