move unlist for single core

itsleeds · Sep 11, 2024 · 86cce8c · 86cce8c
1 parent b8961d6
commit 86cce8c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/atoc_export.R b/R/atoc_export.R
@@ -444,7 +444,7 @@ makeCalendar <- function(schedule, ncores = 1) {
                              .f = checkrows,
                              .progress = TRUE)
     future::plan(future::sequential)
-    keep <- unlist(keep)
+
 
     # cl <- parallel::makeCluster(ncores)
     # parallel::clusterEvalQ(cl, {
@@ -458,6 +458,7 @@ makeCalendar <- function(schedule, ncores = 1) {
   } else {
     keep <- purrr::map(res.calendar.days, checkrows, .progress = TRUE)
   }
+  keep <- unlist(keep)
 
   res.calendar <- res.calendar[keep, ]