R/launch.R

In teofiln/utilhisse: A Collection of Functions for Summarising and Visualizing 'hisse' Results

#' Launch the gghisse Shiny web application
#' 
#' @export
launch_gghisse_app <- function() {
  app_dir <- system.file("gghisse-web", "gghisse", package = "gghisse")
  if (app_dir == "") {
    stop("Could not find example directory. Try re-installing `gghisse`.", call. = FALSE)
  }
  
  shiny::runApp(app_dir, display.mode = "normal")
}