R/shiny_app_launchers.R

Defines functions app_dir launch_preprocessing_app launch_statistics_app

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"))
}
CancerRegistryOfNorway/nordcanshiny documentation built on March 17, 2020, 12:07 a.m.