# Load all example datasets for use in tests.
# This runs before every test file.

.load_test_data <- function() {
  nms <- c(
    "data_rob2", "data_robins_i", "data_robins_e",
    "data_quadas2", "data_quadas_c", "data_quips",
    "data_robis", "data_probast",
    "data_nos_cohort", "data_nos_cc", "data_nos_cs",
    "data_grade", "data_rob2_forest"
  )
  for (nm in nms) {
    if (!exists(nm, envir = .GlobalEnv)) {
      d <- rob_example_data(nm)
      assign(nm, d, envir = .GlobalEnv)
    }
  }
  invisible(NULL)
}

.load_test_data()