R/runLupa.R

In remymoine/Lupa: Lupa

#'  Appel des applications dédiées
#'
#'  @usage runLupa(name)
#'
#' @param name string character indicating the name of the app to use.
#' @author Remy Moine <remymoine95@gmail.com>
#'
#'
#' @export
runLupa <- function() {
  # find and launch the app
  appDir <- system.file("shiny-apps", "lupa-summary", package = "Lupa")
  shiny::runApp(appDir, display.mode = "normal")
}