adjust to previous code

Author: jangorecki

R/frollapply.R

@@ -297,7 +297,7 @@ frollapply = function(X, N, FUN, ..., by.column=TRUE, fill=NA, align=c("right","
       tight = function(i, dest, src, n) FUN(.Call(CmemcpyDT, dest, src, i, n), ...)
     }
   } else {
-    cpy = function(x) .Call(CcopyAsGrowable, x, by.column)
+    cpy = function(x) .Call(CcopyAsGrowable, x)
     ansMask = function(len, n) {
       mask = seq_len(len) >= n
       mask[is.na(mask)] = FALSE ## test 6010.206

src/data.table.h

@@ -298,7 +298,7 @@ SEXP memcpyVector(SEXP dest, SEXP src, SEXP offset, SEXP size);
 SEXP memcpyDT(SEXP dest, SEXP src, SEXP offset, SEXP size);
 SEXP memcpyVectoradaptive(SEXP dest, SEXP src, SEXP offset, SEXP size);
 SEXP memcpyDTadaptive(SEXP dest, SEXP src, SEXP offset, SEXP size);
-SEXP copyAsGrowable(SEXP x, SEXP by_column);
+SEXP copyAsGrowable(SEXP x);
 
 // nafill.c
 void nafillDouble(double *x, uint_fast64_t nx, unsigned int type, double fill, bool nan_is_na, ans_t *ans, bool verbose);

src/frollapply.c

@@ -75,14 +75,15 @@ SEXP memcpyDTadaptive(SEXP dest, SEXP src, SEXP offset, SEXP size) {
 // # nocov end
 
 // needed in adaptive=TRUE
-SEXP copyAsGrowable(SEXP x, SEXP by_column) {
-  if (asLogical(by_column))
+SEXP copyAsGrowable(SEXP x) {
+  if (!isNewList(x))
     return R_duplicateAsResizable(x);
 
   SEXP ret = PROTECT(shallow_duplicate(x));
   R_xlen_t n = xlength(ret);
   for (R_xlen_t i = 0; i < n; ++i)
     SET_VECTOR_ELT(ret, i, R_duplicateAsResizable(VECTOR_ELT(ret, i)));
+
   UNPROTECT(1);
   return ret;
 }