R/launch_app.R

In gaospecial/ggVennDiagram: A 'ggplot2' Implement of Venn Diagram

#' Launch Reactor Data Shiny App
#'
#' @return a shiny app
#' @export
launch_app = function(){
  check_package("shiny")
  app = system.file(
    "shiny",
    "shinyApp.R",
    package = "ggVennDiagram",
    mustWork = TRUE
  )
  if(interactive()) shiny::runApp(app)
}