diseasystore (version 0.3.1)

test_diseasystore: Test a given diseasy store

Description

This function runs a battery of tests of the given diseasystore.

The supplied diseasystore must be a generator for the diseasystore, not an instance of the diseasystore.

The tests assume that data has been made available locally to run the majority of the tests. The location of the local data should be configured in the options for "source_conn" of the given diseasystore before calling test_diseasystore.

Usage

test_diseasystore(
  diseasystore_generator = NULL,
  conn_generator = NULL,
  data_files = NULL,
  target_schema = "test_ds",
  test_start_date = NULL,
  skip_backends = NULL,
  ...
)

Value

NULL (called for side effects)

Arguments

diseasystore_generator

(Diseasystore*)
The diseasystore R6 class generator to test.

conn_generator

(function)
Function that generates a list() of connections use as target_conn. Should take a skip_backend that does not open connections for the given backends.

data_files

(character())
List of files that should be available when testing.

target_schema

(character)
The schema to place the feature store in. If the database backend does not support schema, the tables will be prefixed with <target_schema>..

test_start_date

(Date)
The earliest date to retrieve data from during tests.

skip_backends

(character())
List of connection types to skip tests for due to missing functionality.

...

Other parameters passed to the diseasystore generator.

Examples

if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
# \donttest{
  withr::local_options("diseasystore.DiseasystoreEcdcRespiratoryViruses.pull" = FALSE)

  conn_generator <- function(skip_backends = NULL) {
     switch(
       ("SQLiteConnection" %in% skip_backends) + 1,
       list(DBI::dbConnect(RSQLite::SQLite())), # SQLiteConnection not in skip_backends
       list() # SQLiteConnection in skip_backends
     )
  }

  test_diseasystore(
    DiseasystoreEcdcRespiratoryViruses,
    conn_generator,
    data_files = "data/snapshots/2023-11-24_ILIARIRates.csv",
    target_schema = "test_ds",
    test_start_date = as.Date("2022-06-20"),
    slice_ts = "2023-11-24"
  )
# }
}