count_* functions

2025-07-08 18:01:50 +02:00 · 2018-08-22 00:02:26 +02:00
parent e47e77febc
commit 3e87c8f409
16 changed files with 504 additions and 59 deletions
--- a/tests/testthat/test-ggplot_rsi.R
+++ b/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()
+  )
+
 })