Check for tarball directory before returning from initialize_raa()

pharmaR · Aug 5, 2024 · db35932 · db35932
1 parent 3148426
commit db35932
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/utils_startup.R b/R/utils_startup.R
@@ -217,8 +217,10 @@ initialize_raa <- function(assess_db, cred_db, configuration) {
 
   check_repos(db_config[["package_repo"]])
 
-  if (file.exists(assessment_db) && (isTRUE(getOption("shiny.testmode")) || use_shinymanager && file.exists(credentials_db)))
-    return(invisible(c(assessment_db, if (!isTRUE(getOption("shiny.testmode")) & use_shinymanager) credentials_db)))
+  if (!dir.exists("tarballs")) dir.create("tarballs")
+
+  if (file.exists(assessment_db) && (use_shinymanager && file.exists(credentials_db)))
+    return(invisible(c(assessment_db, if (use_shinymanager) credentials_db)))
 
   check_credentials(db_config[["credentials"]])
 
@@ -242,8 +244,6 @@ initialize_raa <- function(assess_db, cred_db, configuration) {
   } else if (!identical(decisions$decision, decision_categories)) {
     stop("The decision categories in the configuration file do not match those in the assessment database.")
   }
-
-  if (!dir.exists("tarballs")) dir.create("tarballs")
 
   invisible(c(assessment_db, if (use_shinymanager) credentials_db))
 }