#' Launch interactive interface
#'
#' @return shiny app
#' @examples
#' if(interactive()) {iCATinteractive()}
#' @export
iCATinteractive <- function() {
dir <- system.file("app", package = "iCAT")
shiny::runApp(dir, quiet=TRUE, launch.browser=TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.