R 警告消息"；没有非缺失的参数到min；，正在返回数据中的inf"；.表分组集

以下是它试图做的事情，尽管我不知道"为什么"它以这种方式实现的故事.

让我们提供一个调试函数:

groupingsets(long_iris, 
             .(N = .N, Max = (function(z) { browser(); max(value); })(value)),
             by = c('Species', 'variable'),
             ## group by 'variable' and 'Species' separately as well as the interaction, plus the overall stats (character())
             sets = list(character(), 'variable', 'Species', c('variable', 'Species')))

在此的第一个实例化中，让我们看一下堆栈上的where个函数和前几个函数:

Browse[2]> where
where 1: (function(z) {
    browser()
    max(value)
})(value)
where 2: `[.data.table`(x, 0L, eval(jj), by)
where 3: x[0L, eval(jj), by]

和第二次迭代

Browse[2]> c
Browse[2]> where
where 1: (function(z) {
    browser()
    max(value)
})(value)
where 2: eval(jsub, SDenv, parent.frame())
where 3: eval(jsub, SDenv, parent.frame())

请注意，在第一个调用中，我们看到x[0L, eval(jj), by]，它故意使用0行帧进行调用.

I suspect(会不会是data.table-DEV中的一个插入？)这是为了找到一行的类，所以我们至少会返回something.这在某种程度上受到了鼓励，因为在source家公司中发现了这样的情况:

  empty = if (length(.SDcols)) x[0L, eval(jj), by, .SDcols=.SDcols] else x[0L, eval(jj), by]

这在sum版本中不会出现，可能是因为它们在没有数据的情况下表现略有不同:

min()
# Warning in min() : no non-missing arguments to min; returning Inf
# [1] Inf
sum()
# [1] 0

如果您知道要使用的函数带有空数据(如min和max)，则始终可以取消它们或定义具有合理缺省值的对空友好的版本(如-Inf表示max,Inf表示min):

max2 <- function(x, ...) max(c(-Inf, x), ...)

那么它就不嘈杂了:

groupingsets(long_iris, 
             .(N = .N, Max = max2(value)),
             by = c('Species', 'variable'),
             sets = list(character(), 'variable', 'Species', c('variable', 'Species')))
#        Species     variable     N   Max
#         <fctr>       <char> <int> <num>
#  1:       <NA>         <NA>   600   7.9
#  2:       <NA>  Sepal.Width   150   4.4
#  3:       <NA> Sepal.Length   150   7.9
#  4:       <NA>  Petal.Width   150   2.5
#  5:       <NA> Petal.Length   150   6.9
#  6:     setosa         <NA>   200   5.8
#  7: versicolor         <NA>   200   7.0
#  8:  virginica         <NA>   200   7.9
#  9:     setosa  Sepal.Width    50   4.4
# 10: versicolor  Sepal.Width    50   3.4
# 11:  virginica  Sepal.Width    50   3.8
# 12:     setosa Sepal.Length    50   5.8
# 13: versicolor Sepal.Length    50   7.0
# 14:  virginica Sepal.Length    50   7.9
# 15:     setosa  Petal.Width    50   0.6
# 16: versicolor  Petal.Width    50   1.8
# 17:  virginica  Petal.Width    50   2.5
# 18:     setosa Petal.Length    50   1.9
# 19: versicolor Petal.Length    50   5.1
# 20:  virginica Petal.Length    50   6.9
#        Species     variable     N   Max