geom_rsi - any parameter

2025-07-08 12:31:58 +02:00 · 2018-08-23 21:27:15 +02:00
parent eee122825c
commit febd0ca885
9 changed files with 72 additions and 39 deletions
--- a/tests/testthat/test-first_isolate.R
+++ b/tests/testthat/test-first_isolate.R
@ -85,4 +85,11 @@ test_that("first isolates work", {
                    info = TRUE),
      na.rm = TRUE),
    1501)
+
+  expect_message(septic_patients %>%
+                   mutate(specimen = "test") %>%
+                   mutate(first = first_isolate(., "date", "patient_id",
+                                                col_bactid = "bactid", col_specimen = "specimen",
+                                                filter_specimen = "something_unexisting")))
+  expect_error(first_isolate("date", "patient_id", col_bactid = "bactid"))
 })