tests/testthat/helper-tests.R

In COHHIO/HMIS: Filters HMIS Data by Meaningful Date Ranges

ReportStart <- "20200125"
ReportEnd <- "30082020"
message(.Library)
message(.libPaths())
if (testthat::is_testing()) {
  .data_path <- fs::path("test-between", ext = "rds")
} else {
  .data_path <- rprojroot::find_package_root_file("tests", "testthat", "test-between.rds")
}

dates <- c()
test_data <- readRDS(.data_path)