(v1.5.0.9015) unit test fix, grouped first isolates

tests/testthat/test-eucast_rules.R

@@ -96,7 +96,8 @@ test_that("EUCAST rules work", {
                                                        AZM = as.rsi("R"),
                                                        CLR = factor("R"),
                                                        stringsAsFactors = FALSE),
-                                            version_expertrules = 3.1)$CLR))
+                                            version_expertrules = 3.1,
+                                            only_rsi_columns = FALSE)$CLR))
   b <- example_isolates$ERY
   expect_identical(a[!is.na(b)],
                    b[!is.na(b)])

tests/testthat/test-first_isolate.R

@@ -212,4 +212,9 @@ test_that("first isolates work", {
   # only one isolate, so return fast
   expect_true(first_isolate(data.frame(mo = "Escherichia coli", date = Sys.Date(), patient = "patient"), info = TRUE))
 
+  # groups
+  x <- example_isolates %>% group_by(ward_icu) %>% mutate(first = first_isolate())
+  y <- example_isolates %>% group_by(ward_icu) %>% mutate(first = first_isolate(.))
+  expect_identical(x, y)
+  
 })