R/demo.R

In JohnCoene/marker: Dynamically highlight Text in 'Shiny' applications 'UI'

#' Demo
#' 
#' Run a demo of marker.
#' 
#' @examples 
#' \dontrun{marked_demo()}
#' 
#' @export
marker_demo <- function(){
  shiny::shinyAppFile(
    system.file(
      paste0("app/app.R"), 
      package = 'marker', 
      mustWork = TRUE
    ), 
    options = list(display.mode = "showcase")
  )
}