tests/testthat/example_automatic_load/R/verification_queries.R

test_queries <- function(con) {
  values <- list()
  values$people_count <- DBI::dbGetQuery(con,
                                         "SELECT count(*) from people")[1, 1]
  values$jobs_count <- DBI::dbGetQuery(con, "SELECT count(*) from jobs")[1, 1]
  values
}
vimc/dettl documentation built on Oct. 6, 2022, 2:13 p.m.