diff --git a/R/Collect.R b/R/Collect.R index 1bb864825adb752568c9b3d71522a531a1de53a2..5ae8b150626c815f713af279f4dbf244502d787a 100644 --- a/R/Collect.R +++ b/R/Collect.R @@ -147,8 +147,7 @@ Collect_ecflow <- function(startr_exec, wait = TRUE, remove = TRUE, on_remote = done <- FALSE attempt <- 1 if (!on_remote) { - #TODO: Is it correct? Not all the cases have "output" as beginning - sum_received_chunks <- sum(grepl('output.*\\.Rds', + sum_received_chunks <- sum(grepl('.*\\.Rds$', list.files(ecflow_suite_dir_suite))) }