Merge pull request #688 from pascal-sauer/develop

turn renv::snapshot error into warning
magpiemodel · Jun 18, 2024 · 089f991 · 089f991
2 parents 91c2c0c + a8ab9a4
commit 089f991
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/output.R b/output.R
@@ -157,7 +157,7 @@ runOutputs <- function(comp=NULL, output=NULL, outputdir=NULL, submit=NULL) {
       }, type = "message")
     })
     if (!snapshotSuccess) {
-      stop(paste(errorMessage1, collapse = "\n"), paste(errorMessage2, collapse = "\n"))
+      warning(paste(errorMessage1, collapse = "\n"), paste(errorMessage2, collapse = "\n"))
     }
     message("done.")
 
@@ -172,6 +172,8 @@ runOutputs <- function(comp=NULL, output=NULL, outputdir=NULL, submit=NULL) {
       if (!file.exists(file.path(runFolder, "renv.lock"))) {
         warning(normalizePath(runFolder), "/renv.lock does not exist.")
         message("Lockfile written to ", newLockfile)
+      } else if (!file.exists(newLockfile)) {
+        message("Could not write lockfile, see warning thrown earlier.")
       } else if (identical(readLines(file.path(runFolder, "renv.lock")), readLines(newLockfile))) {
         file.remove(newLockfile)
       } else {