fix (ugly)

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21350,9 +21350,9 @@ local({
 
 #6964
 # Test 1: No warning from min() with simple data
-DT = data.table(var = c("a", "b", "c", "d"), c(1:3, NA))
+DT = data.table(var = c("a", "b", "c", "d"), value=c(1:3, NA))
 test(2327.1, cube(DT, .(min(value)), "var"),
      data.table(var = c("a", "b", "c", "d", NA), V1 = c(1:3, NA, NA)))
-test(2327.2, cube(DT, .(min(value)), "var"),
+test(2327.2, cube(DT, .(as.numeric(base::min(value, na.rm=TRUE))), "var"),
      data.table(var = c("a", "b", "c", "d", NA), V1 = c(1:3, Inf, 1.0)),
      warning="no non-missing arguments to min")