actually remove code from run_app.R, utils_startup.R

pharmaR · Aug 14, 2023 · d084110 · d084110
1 parent d28b7f1
commit d084110
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 23 deletions.
diff --git a/R/run_app.R b/R/run_app.R
@@ -43,25 +43,6 @@ run_app <- function(
     }
   }
 
-  # Note that this overrides other credential set up
-  # login_creds <- NULL
-  # pre_auth_user <- NULL
-  # if (isFALSE(getOption("golem.app.prod"))) {
-  #   arg_lst <- as.list(match.call())
-  # 
-  #   login_creds <- list(user_id = "",
-  #                       user_pwd = "cxk1QEMYSpYcrNB")
-  # if (!is.null(arg_lst$pre_auth_user)) {
-  #   pre_auth_user <- arg_lst$pre_auth_user
-  #   if (isTRUE(pre_auth_user) || pre_auth_user == "admin") {
-  #     login_creds$user_id <- "admin"
-  #   } else {
-  #     login_creds$user_id <- pre_auth_user
-  #   }
-  #   credentials_db_name <- gsub("\\.sqlite", "_dev\\.sqlite", credentials_db_name)
-  # }
-  # }
-
   # Run the app
   with_golem_options(
     app = shinyApp(
@@ -75,8 +56,6 @@ run_app <- function(
     golem_opts = list(app_version = app_ver,
                       credentials_db_name = credentials_db_name,
                       assessment_db_name = assessment_db_name,
-                      # pre_auth_user = pre_auth_user,
-                      # login_creds = login_creds,
                       decision_categories = decision_categories,
                       ...)
   )

diff --git a/R/utils_startup.R b/R/utils_startup.R
@@ -213,8 +213,6 @@ initialize_raa <- function(assess_db, cred_db, decision_cat) {
 
   check_credentials(db_config[["credentials"]])
 
-  # if (isFALSE(getOption("golem.app.prod")) && !is.null(golem::get_golem_options('pre_auth_user')) && !file.exists(credentials_db)) create_credentials_dev_db(credentials_db)
-
   # Create package db & credentials db if it doesn't exist yet.
   if(!file.exists(assessment_db)) create_db(assessment_db)
   if(!file.exists(credentials_db)) {