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

(v0.7.0.9003) scale fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-06-08 23:50:06 +02:00
parent f50d3a5ba1
commit ec48f1d83b
16 changed files with 403 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/testthat/test-ggplot_rsi.R
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")
})