Don't fail if params not specified

DESCRIPTION

@@ -5,8 +5,8 @@ Description: Quickly setup a 'SpaDES' project directories and add modules using
 URL:
     https://spades-project.predictiveecology.org/,
     https://github.com/PredictiveEcology/SpaDES.project
-Date: 2024-11-29
-Version: 0.1.1.9001
+Date: 2024-12-02
+Version: 0.1.1.9002
 Authors@R: c(
     person("Eliot J B", "McIntire", email = "[email protected]",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6914-8316")),

R/setupProject.R

@@ -555,6 +555,8 @@ setupProject <- function(name, paths, modules, packages,
   # TODO from here to out <-  should be brought into the "else" block when `SpaDES.config is worked on`
   remainingArgs <- origArgOrder[!argsAreInFormals]
   remainingArgs <- remainingArgs[nzchar(remainingArgs)]
+  # if (missing(paramsSUB))
+  #   params <- list()
   for (ar in remainingArgs) {
     if (identical(ar, "params")) {
       params <- setupParams(name, paramsSUB, paths, modules, times, options = opts[["newOptions"]],
@@ -600,12 +602,30 @@ setupProject <- function(name, paths, modules, packages,
   paths <- paths[spPaths]
   attr(paths, "extraPaths") <- pathsOrig[extras]
 
-  out <- append(list(
-    modules = modules,
-    paths = paths, # this means we lose the packagePath --> but it is in .libPaths()[1]
-    # we also lose projectPath --> but this is getwd()
-    params = params,
-    times = times), dotsSUB)
+  out <- dotsSUB
+  toAppend <- rev(list("modules", "paths", "params"))
+  for (toA in toAppend) {
+    # some may be missing, e.g., params
+    arg <- try(eval(parse(text = toA)), silent = TRUE)
+    if (!is(arg, "try-error")) {
+      argToAppend <- list(arg) |> setNames(toA)
+      out <- append(argToAppend, out)
+    } else {
+      message("Argument ", toA, " is missing; proceeding without")
+    }
+      # append(list(
+      #   modules = modules,
+      #   paths = paths, # this means we lose the packagePath --> but it is in .libPaths()[1]
+      #   # we also lose projectPath --> but this is getwd()
+      #   params = params,
+      #   times = times), dotsSUB)
+  }
+  # out <- append(list(
+  #   modules = modules,
+  #   paths = paths, # this means we lose the packagePath --> but it is in .libPaths()[1]
+  #   # we also lose projectPath --> but this is getwd()
+  #   params = params,
+  #   times = times), dotsSUB)
   if (!is.null(options)) {
     attr(out, "projectOptions") <- opts$updates
   }