tests/testthat/example_pre_post_load/R/pre_load.R

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

pre_load <- function(transformed_data, con) {
  DBI::dbWriteTable(con, "people",
                    data.frame(name = "Ed", age = 5, height = 75,
                               stringsAsFactors = FALSE),
                    append = TRUE)
}