codecov

Author: jangorecki

R/frollapply.R

@@ -61,6 +61,7 @@ simplifylist = function(x, fill, ansmask) {
       ## name fill if all ans have same names
       if (
         ans.ut != "list" &&
+        length(fill) == length(ans1) &&
         is.null(names(fill)) &&
         !is.null(names(ans1)) &&                                             ## simplifylist(list(NA, c(1,2), c(1,2)), NA, ansmask=c(F,T,T))
         len_unq(vapply_1b(x[ansmask], any_NA_names, use.names=FALSE)) <= 1L && ## simplifylist(list(NA, c(a=1,b=2), setNames(c(1, 2), c(NA,"b"))), NA, ansmask=c(F,T,T))

inst/tests/froll.Rraw

@@ -1802,6 +1802,8 @@ test(6010.756, frollapply(1:3, 2, fill=9, function(i) if (i[1L]==1L) 1L else NA)
 test(6010.757, frollapply(1:3, 2, fill=9, function(i) if (i[1L]==1L) 1L else 2L), c(9L,1L,2L)) ## matches fun answer
 test(6010.758, frollapply(1:3, 2, fill=9L, function(i) if (i[1L]==1L) 1 else FALSE), list(9L,1,FALSE))
 test(6010.759, frollapply(1:3, 2, fill=0, function(i) TRUE), list(0,TRUE,TRUE))
+test(6010.760, frollapply(1:3, 2, function(x) c(a=x), fill=0), list(0L, c(a1=1L,a2=2L), c(a1=2L,a2=3L)))
+test(6010.7601, frollapply(1:3, 2, function(x) c(a=x), fill=c(0,0)), data.table(a1=0:2, a2=c(0L,2:3)))
 
 #### mutlithreading throttle caveats from manual: copy, fixing .internal.selfref
 use.fork = .Platform$OS.type!="windows" && getDTthreads()>1L