unit tests

2025-12-13 07:10:29 +01:00 · 2018-09-17 21:51:21 +02:00
parent 5d80cef338
commit df5d82fff3
4 changed files with 9 additions and 0 deletions
--- a/tests/testthat/test-ggplot_rsi.R
+++ b/tests/testthat/test-ggplot_rsi.R
@@ -38,4 +38,10 @@ test_that("ggplot_rsi works", {
      summarise_all(count_IR) %>% as.double()
  )

+  expect_equal(colnames(getlbls(septic_patients %>% select(amcl, cipr))),
+               c("Interpretation", "Antibiotic", "Value", "lbl"))
+
+  expect_error(ggplot_rsi(septic_patients, fun = "invalid"))
+  expect_error(geom_rsi(septic_patients, fun = "invalid"))
+
 })