R/13-nyt_run_example.R

In seanangio/nytindia: Prepare and visualize India-tagged data from the NYT Article Search API

#' Run NYT India app with sample data or lookup table app
#'
#' Launch a Shiny app that visualizes data from 1855-2020.
#' You can also launch the lookup table app for renaming news
#' desks and keyword values.
#'
#' All credit to this \href{https://github.com/daattali/shinyjs/blob/master/R/runExample.R}{shinyjs example}.
#'
#' @param example either "nyt_india_app" or "lookup_table_app"
#' @examples
#' ## Only run this example in interactive R sessions
#' if (interactive()) {
#'   nyt_run_example("nyt_india_app")
#'   nyt_run_example("lookup_table_app")
#' }
#' @export
nyt_run_example <- function(example) {

  validExamples <-
    paste0(
      'Valid examples are: "',
      paste(list.files(system.file("examples",
                                   package = "nytindia")),
            collapse = '", "'),
      '"')

  if (missing(example) || !nzchar(example)) {
    message(
      'Please run `runExample()` with a valid example app as an argument.\n',
      validExamples)
    return(invisible(NULL))
  }

  appDir <- system.file("examples", example,
                        package = "nytindia")
  if (appDir == "") {
    paste0(sprintf("could not find example app `%s`\n%s",
                   example, validExamples))
  }

  shiny::runApp(appDir, display.mode = "normal")
}