app_dir <- function(app_nm) {
nordcancore:::assert_is_character_nonNA_atom(app_nm)
stopifnot(
app_nm %in% c("preprocessing", "statistics")
)
dev_tgt <- paste0("inst/", app_nm, "/")
in_dev_mode <- dir.exists(dev_tgt)
if (in_dev_mode) {
return(dev_tgt)
} else {
return(system.file(package = "nordcanshiny", app_nm))
}
}
launch_preprocessing_app <- function() {
shiny::runApp(appDir = app_dir("preprocessing"))
}
launch_statistics_app <- function() {
shiny::runApp(appDir = app_dir("preprocessing"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.