use more robust bind_rows

philchalmers · Jul 24, 2024 · 085222e · 085222e
1 parent d5ca261
commit 085222e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/SimCollect.R b/R/SimCollect.R
@@ -306,10 +306,10 @@ SimCollect <- function(files = NULL, filename = NULL,
     } else {
         out <- do.call(rbind, full_out)
         if(has_stored_results)
-            extra_info1$stored_results <- do.call(rbind,
-                            lapply(full_out, \(x) attr(x, 'extra_info')$stored_results))
-        errors_info <- dplyr::as_tibble(do.call(rbind, errors_info))
-        warnings_info <- dplyr::as_tibble(do.call(rbind, warnings_info))
+            extra_info1$stored_results <- dplyr::bind_rows(
+                lapply(full_out, \(x) attr(x, 'extra_info')$stored_results))
+        errors_info <- dplyr::bind_rows(errors_info)
+        warnings_info <- dplyr::bind_rows(warnings_info)
     }
     if(check.only){
         if(is.null(target.reps)) target.reps <- max(out$REPLICATIONS)