update

YuLab-SMU · Aug 17, 2024 · 3546b02 · 3546b02
1 parent 28b0ed3
commit 3546b02
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/concat.r b/R/concat.r
@@ -24,13 +24,14 @@ c2 <- function(x, y) {
     }
 
 
-    x$vector_list <- c(x$vector_list, list(y))
+    x$vector_list[[length(x$vector_list) + 1]] <- list(y)
     x$idx <- c(x$idx, length(x))
     x$last_size <- length(y)
 
     return(x)
 }
 
+
 #' @method as.vector chunked_array
 as.vector.chunked_array <- function(x, mode = "any") {
     do.call('c', x$vector_list)