#' Run MC Test Analysis App
#'
#' Runs the MC Test ANalysis Shiny app.
#'
#' @export
explore <- function() {
appDir <- system.file("shiny-apps", "mctestanalysis", package = "MCTestAnalysis")
if (appDir == "") {
stop("Could not find shiny-apps directory. Try re-installing the MCTestAnalysis package.")
}
if (.Platform$OS.type == 'windows') {
suppressWarnings(shiny::runApp(appDir, launch.browser = TRUE))
} else {
suppressWarnings(shiny::runApp(appDir, display.mode = 'normal'))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.