#' Launch shiny app
#'
#' @title Launch CascadeDashboard Shiny App
#'
#' @export
launch <- function() {
cat("Press ESC (or Ctrl-C) to get back to the R session\n")
wd <- system.file("app", package = "CascadeDashboard")
if (wd == "") {
stop("Could not find app. Try re-installing `CascadeDashboard`.", call. = FALSE)
}
shiny::runApp(wd, quiet = FALSE, display.mode = "normal")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.