From ccb00a69d1fbb0b46c1567dd3c05884f458e74e2 Mon Sep 17 00:00:00 2001 From: Patrice Lecharpentier Date: Wed, 17 Jan 2024 13:49:27 +0100 Subject: [PATCH] added recursive to FALSE: if sub-dir exist (i.e. plant dir) they are now not taken into account. (#14) --- R/run_system.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/run_system.R b/R/run_system.R index 421da56..f749fa0 100644 --- a/R/run_system.R +++ b/R/run_system.R @@ -68,7 +68,8 @@ run_system <- function(stics_exe, } if (!is.null(usm) && usm == "all") { - run_dir <- setdiff(list.dirs(run_dir, full.names = TRUE), run_dir) + run_dir <- setdiff(list.dirs(run_dir, full.names = TRUE, recursive = FALSE), + run_dir) } # testing id dirs exist