Launch GUI automatically within a Shiny server.

DESCRIPTION

 Package: mapMCDA
 Title: Produce an epidemiological risk map by weighting multiple risk
         factors
-Version: 0.4.54
+Version: 0.4.55
 Date: 2021-05-28
 Authors@R: c( person("Andrea", "Apolloni", email =
         "andrea.apolloni@cirad.fr", role = c("ctb"), comment = "Animal

R/app.R

+
+if (nzchar(Sys.getenv("SHINY_PORT"))) {  # shiny:::inShinyServer
+  ## In a Shiny server, start the GUI directly without launching a browser
+  shiny::runApp(
+    system.file("interface", package = "mapMCDA"),
+    launch.browser = FALSE
+  )
+}

R/mapMCDA_app.R

@@ -17,5 +17,6 @@ mapMCDA_app <- function (bg = FALSE) {
 }
 
 .onLoad <- function(libname, pkgname){
+  # library(mapMCDA)
   # mapMCDA_app()
-}
+}
\ No newline at end of file