R/runExample.R

In DrMattG/SDGsR: Interface with the UN SDGs API to get data about the Sustainable Development Goals

#' Run the Shiny example
#' @description Run ShinyApp examples
#' @param example Can only be "indicator.R" at present
#' @return A shiny app with plotly interactive map
#' @export
runExample <- function(example = "indicator.R") {
  requireNamespace("shiny")
   # locate all the shiny app examples that exist
  validExamples <- list.files(system.file("shiny_examples", package = "SDGsR"))

  validExamplesMsg <-
    paste0(
      "Valid examples are: '",
      paste(validExamples, collapse = "', '"),
      "'")

  # if an invalid example is given, throw an error
  if (missing(example) || !nzchar(example) ||
      !example %in% validExamples) {
    stop(
      'Please run `runExample()` with a valid example app as an argument.\n',
      validExamplesMsg,
      call. = FALSE)
  }

  # find and launch the app
  appDir <- system.file("shiny_examples", example, package = "SDGsR")
  shiny::runApp(appDir, display.mode = "normal")
}