1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 16:02:02 +02:00

count_* functions

This commit is contained in:
2018-08-22 00:02:26 +02:00
parent e47e77febc
commit 3e87c8f409
16 changed files with 504 additions and 59 deletions

View File

@ -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()
)
})