tests/testthat/test-m4_patterns.R

test_that("m4_patterns functions work", {
  con <- bigrquery::dbConnect(
    bigrquery::bigquery(),
    project = bigrquery::bq_test_project(),
    quiet = TRUE
  )

  patadm <- m4_patient_admissions(con, cohort = 16904137)
  expect_equal(nrow(patadm), 2)
  expect_equal(ncol(patadm), 19)

  icudet <- m4_patient_icustays(con, cohort = 16904137)
  expect_equal(nrow(icudet), 2)
  expect_equal(ncol(icudet), 25)

  bigrquery::dbDisconnect(con)
})
hdshea/MIMIC4db documentation built on Dec. 20, 2021, 3:45 p.m.