allow column name for ab in as.sir()

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2024-05-20 21:29:13 +02:00
1 parent fc269e667d
commit d214f74e25
10 files changed
+139 -106

No files matched your search

+4 -2
View File
@@ -69,7 +69,7 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
example_isolates %>% count_susceptible(AMC, GEN, only_all_tested = TRUE) +
example_isolates %>% count_resistant(AMC, GEN, only_all_tested = TRUE)
)
# count of cases
expect_equal(
example_isolates %>%
@@ -95,8 +95,10 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
example_isolates %>% select(AMX) %>% count_df(combine_SI = FALSE) %>% pull(value),
c(
suppressWarnings(example_isolates$AMX %>% count_S()),
0,
example_isolates$AMX %>% count_I(),
example_isolates$AMX %>% count_R()
example_isolates$AMX %>% count_R(),
0
)
)