R/runEx.R

Defines functions runEx

Documented in runEx

#' Run interactive FreqProf example (Shiny App)
#'
#' @export
#' @examples
#' # Only run this example in interactive R sessions
#' if(interactive()) {
#'   runEx()
#' }
runEx <- function() {
  appDir <- system.file("shinyapp", package = "FreqProf")
  if(appDir == "") {
    stop("Could not find example directory. Try reinstalling `FreqProf`.",
         call. = FALSE)
  }
  shiny::runApp(appDir, display.mode = "normal")
}
AIBRT/FreqProf documentation built on May 5, 2019, 11:30 a.m.