R/RunApp.R

In nextpagesoft/hivEstimatesAccuracyReloaded: Improves Accuracy of HIV Estimates in EU/EEA Countries

#' RunApp
#'
#' Run the application.
#'
#' @param launchBrowser Logical indicating to open the app in a newly open web browser
#'
#' @return NULL (invisibly)
#'
#' @examples
#' \dontrun{
#' RunApp()
#' }
#'
#' @export
RunApp <- function(launchBrowser = FALSE)
{
  app <- shiny::shinyApp(AppUI, AppServer)
  options(shiny.launch.browser = rstudioapi::viewer)
  shiny::runApp(app, display.mode = 'normal', test.mode = TRUE)
  return(invisible(NULL))
}