Added interactive option to install cd

OHDSI · Jul 15, 2024 · 461c6cd · 461c6cd
1 parent 1b3d7f5
commit 461c6cd
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/Shiny.R b/R/Shiny.R
@@ -114,7 +114,11 @@ launchDiagnosticsExplorer <- function(sqliteDbPath = "MergedCohortDiagnosticsDat
   }
 
   if (!"OhdsiShinyModules" %in% as.data.frame(utils::installed.packages())$Package) {
-    remotes::install_github("OHDSI/OhdsiShinyModules")
+    if (!interactive() || isTRUE(utils::askYesNo("OhdsiShinyModules not installed, get from github?"))) {
+      remotes::install_github("OHDSI/OhdsiShinyModules")
+    } else {
+      stop("Cannot continue without OhdsiShinyModulesPackage from github")
+    }
   }
 
   appDir <-