(v1.4.0.9015) bugfix

tests/testthat/test-eucast_rules.R

@@ -90,12 +90,12 @@ test_that("EUCAST rules work", {
     "R")
   
   # Azithromycin and Clarythromycin must be equal to Erythromycin
-  a <- eucast_rules(data.frame(mo = example_isolates$mo,
+  a <- as.rsi(eucast_rules(data.frame(mo = example_isolates$mo,
                                ERY = example_isolates$ERY,
                                AZM = as.rsi("R"),
-                               CLR = as.rsi("R"),
+                               CLR = factor("R"),
                                stringsAsFactors = FALSE),
-                    version_expertrules = 3.1)$CLR
+                    version_expertrules = 3.1)$CLR)
   b <- example_isolates$ERY
   expect_identical(a[!is.na(b)],
                    b[!is.na(b)])