tests/testthat/example_load_template/R/script.R

In vimc/dettl: Data Extract, Transform, Test and Load

load <- function(transformed_data, con) {
  "Executed load function"
}

verification_queries <- function(con) {
  values <- list()
  values$count <-  DBI::dbGetQuery(con, "SELECT count(*) from people")[1, 1]
  values
}