tests/testthat/test-m4_get_from_table.R

In hdshea/MIMIC4db: Package for building, loading and referencing the Google BigQuery verion of the MIMIC-IV

test_that("m4_get_from_table works", {
  con <- bigrquery::dbConnect(
    bigrquery::bigquery(),
    project = bigrquery::bq_test_project(),
    quiet = TRUE
  )

  dat <- m4_get_from_table(con, "d_items", where = "where itemid <= 220048")
  expect_equal(nrow(dat), 5)
  expect_equal(ncol(dat), 9)

  bigrquery::dbDisconnect(con)
})