函数返回＆lt; 0行＆gt; （或0长度的row.names）

Question

我正在尝试编写一个函数，它将返回一个包含两列（Date列和我选择的列）的数据框，以及一行（在数据框的指定列中具有最大值） ，告诉我哪个日期有最大值。

is_max <- function (month, col) {
    sub_row <- which.max(month$col)      #the row index of the max value
    A <- which(names(month) == col)      #the index of the desired column
    y <- month[sub_row, c(1, A)]
    return(y)
}

结果应为

     Date TOTAL
15 11-Aug    26

相反，这给出了输出

[1] Date  TOTAL
<0 rows> (or 0-length row.names)

当我在函数体外部计算函数的每一行时，我希望它有效。谢谢你的帮助！