Merge pull request #141 from darwin-eu/drug_code_as_int

test is integer
darwin-eu · May 8, 2024 · a1112a3 · a1112a3
2 parents ca9c76d + e4e0956
commit a1112a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-dbms.R b/tests/testthat/test-dbms.R
@@ -35,7 +35,8 @@ test_that("redshift", {
   expect_true(nrow(asthma) > 0)
 
   # drug ingredients
-  expect_no_error(getDrugIngredientCodes(cdm, "metformin"))
+  expect_no_error(metformin <- getDrugIngredientCodes(cdm, "metformin"))
+  expect_true(is.integer(metformin$metformin))
 
   # achilles
   cdm$achilles_results <- cdm$condition_occurrence %>%