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:
@ -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")
|
||||
|
||||
})
|
||||
|
Reference in New Issue
Block a user