Added function n_rsi

tests/testthat/test-eucast.R

@@ -1,6 +1,8 @@
 context("eucast.R")
 
 test_that("EUCAST rules work", {
+  a <- EUCAST_rules(septic_patients)
+
   a <- data.frame(bactid = c("KLEPNE",  # Klebsiella pneumoniae
                              "PSEAER",  # Pseudomonas aeruginosa
                              "ENTAER"), # Enterobacter aerogenes

tests/testthat/test-rsi_analysis.R

@@ -29,6 +29,21 @@ test_that("rsi works", {
                       info = FALSE),
                0.9858,
                tolerance = 0.0001)
+
+  # count of cases
+  expect_equal(septic_patients %>%
+                 group_by(hospital_id) %>%
+                 summarise(cipro_S = rsi(cipr, interpretation = "S",
+                                         as_percent = TRUE, warning = FALSE),
+                           cipro_n = n_rsi(cipr),
+                           genta_S = rsi(gent, interpretation = "S",
+                                         as_percent = TRUE, warning = FALSE),
+                           genta_n = n_rsi(gent),
+                           combination_S = rsi(cipr, gent, interpretation = "S",
+                                               as_percent = TRUE, warning = FALSE),
+                           combination_n = n_rsi(cipr, gent)) %>%
+                 pull(combination_n),
+               c(138, 474, 170, 464, 183))
 })
 
 test_that("prediction of rsi works", {