R/run_app.R

In poissonconsulting/shinyypr: Run ypr Shiny App

#' Run Shiny Application
#'
#' @param population A ypr population object
#' @export
#' @examples
#' if (interactive()) {
#'   run_ypr_app()
#' }
run_ypr_app <- function(population = NULL) {
  if (!is.null(population)) {
    check_population(population)
  }
  shinyOptions(population = population)

  shiny::shinyAppDir(
    system.file("app", package = "shinyypr"),
    options = list("launch.browser" = TRUE)
  )
}