R/extra-shiny.R

In kcf-jackson/sketch: Interactive Sketches

#' Run 'Shiny' Application
#'
#' @examples
#' \dontrun{
#' runShinyApp()
#' }
#'
#' @export
runShinyApp <- function() {
    dir <- system.file("sketch_editor", package = "sketch")  # nocov
    shiny::runApp(dir)  # nocov
}