From db3593251494fa6150f6f8098c59aa061cbe38d2 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Mon, 5 Aug 2024 09:00:01 -0400
Subject: [PATCH] Check for tarball directory before returning from
 `initialize_raa()`

---
 R/utils_startup.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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