Merge pull request #813 from pharmaR/jt-tarball_directory_creation

Check for tarball directory

NEWS.md

@@ -5,6 +5,7 @@
 * Fixed bug that incorrectly displayed 0 dependencies as 1 (#805)
 * Fixed bug that kept full list of available packages from populating (#776)
 * Removed `.recording` attribute from `riskmetric` assessments for storage purposes
+* Ensured `tarballs` directory existed before returning from `initialize_raa()`
 
 # riskassessment 3.1.0
 

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))
 }