demo/run_all_demos.R

In fxl: 'fxl' Single Case Design Charting Package

oldwd <- getwd()

if (require("here")) {
  setwd(paste(here::here("demo")))
}

files_in_dir <- list.files(
  path = ".",
  pattern = "*.R",
  full.names = FALSE,
  ignore.case = FALSE
)

files_in_dir <- files_in_dir[files_in_dir != "run_all_demos.R"]
files_in_dir <- files_in_dir[files_in_dir != "run_coverage.R"]
files_in_dir <- files_in_dir[files_in_dir != "beezdemandInd.R"]
files_in_dir <- files_in_dir[files_in_dir != "atd_concurrentoperant.R"]

lapply(files_in_dir, function(x) try(source(x)))

setwd(oldwd)