new antibiotics

tests/testthat/test-rsi.R

@@ -47,7 +47,7 @@ test_that("rsi works", {
   library(dplyr)
   # 40 rsi columns
   expect_equal(septic_patients %>%
-                 mutate_at(vars(peni:rifa), as.character) %>%
+                 mutate_at(vars(PEN:RIF), as.character) %>%
                  lapply(is.rsi.eligible) %>%
                  as.logical() %>%
                  sum(),