tests/testthat/helper-sensitive-data.R

In mrc-ide/hintr: R API for calling naomi district level HIV model

skip_if_sensitive_data_missing <- function() {
  sensitive_path <- Sys.getenv("NAOMI_SENSITIVE_DATA_PATH",
                               "testdata/sensitive")
  if (!file.exists(file.path("testdata", "sensitive"))) {
    skip("Sensitive data missing, check README for details.")
  }
}