add defensive programming #32

ajpelu · Oct 15, 2024 · bbeaa13 · bbeaa13
1 parent 50d7aac
commit bbeaa13
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/launch_famexplorer.R b/R/launch_famexplorer.R
@@ -12,7 +12,15 @@ launch_famexplorer <- function() {
   if (appDir == "") {
     stop("Could not find app directory. Try re-installing `famexploreR`.", call. = FALSE)
   }
+
+  if (!dir.exists(appDir)) {
+    stop(paste("Error: The application directory does not exist:", appDir))
+  }
 
+  if (!requireNamespace("shiny", quietly = TRUE)) {
+    stop("Error: The 'shiny' package is not installed. Please install it before proceeding.")
+  }
+
   # Run app
   shiny::runApp(appDir, display.mode = "normal", launch.browser = TRUE)
 }