diff --git a/R/utils_startup.R b/R/utils_startup.R index 644d0f57..6ecaf4c3 100644 --- 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)) }