R/launch_app.R

In natbprice/radsets: Create Radial Set Diagrams for Visualizing Overlapping Sets

#' Launches the shiny app
#'
#' @return shiny application object
#'
#'
#' @export launchApp
launchApp <- function() {
  appDir <- system.file("shiny-app", package = "radsets")
  if (appDir == "") {
    stop("Could not find `shiny-app`. Try re-installing `radsets`.", call. = FALSE)
  }

  shiny::runApp(appDir, display.mode = "normal")
}