From 86cce8c5a3a9273f52f274421b81836fe605b2d4 Mon Sep 17 00:00:00 2001
From: Malcolm Morgan <mem48@users.noreply.github.com>
Date: Wed, 11 Sep 2024 20:25:49 +0100
Subject: [PATCH] move unlist for single core

---
 R/atoc_export.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/atoc_export.R b/R/atoc_export.R
index b074921..2799927 100644
--- 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, ]