count_* functions

tests/testthat/test-ggplot_rsi.R

@@ -29,4 +29,13 @@ test_that("ggplot_rsi works", {
       summarise_all(portion_IR) %>% as.double()
   )
 
+  expect_equal(
+    (septic_patients %>% select(amcl, cipr) %>% ggplot_rsi(x = "Antibiotic",
+                                                           facet = "Interpretation",
+                                                           fun = count_df))$data %>%
+      summarise_all(count_IR) %>% as.double(),
+    septic_patients %>% select(amcl, cipr) %>%
+      summarise_all(count_IR) %>% as.double()
+  )
+
 })