added recursive to FALSE: if sub-dir exist (i.e. plant dir) they are …

…now not taken into account. (#14)
SticsRPacks · Jan 17, 2024 · ccb00a6 · ccb00a6
1 parent 7eca236
commit ccb00a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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