1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-10 15:41:49 +02:00

(v0.7.0.9003) scale fix

This commit is contained in:
2019-06-08 23:50:06 +02:00
parent f50d3a5ba1
commit ec48f1d83b
16 changed files with 403 additions and 32 deletions

View File

@ -62,4 +62,16 @@ test_that("ggplot_rsi works", {
expect_error(ggplot_rsi(septic_patients, fun = "invalid"))
expect_error(geom_rsi(septic_patients, fun = "invalid"))
# support for scale_type ab and mo
expect_equal(class((data.frame(mo = as.mo(c("e. coli", "s aureus")),
n = c(40, 100)) %>%
ggplot(aes(x = mo, y = n)) +
geom_col())$data),
"data.frame")
expect_equal(class((data.frame(ab = as.ab(c("amx", "amc")),
n = c(40, 100)) %>%
ggplot(aes(x = ab, y = n)) +
geom_col())$data),
"data.frame")
})