(v1.1.0.9000) CLSI as.rsi() fix, better vctrs support, new CI

tests/testthat/test-eucast_rules.R

@@ -37,7 +37,7 @@ test_that("EUCAST rules work", {
   expect_error(eucast_rules(data.frame(a = "test")))
   expect_error(eucast_rules(data.frame(mo = "test"), rules = "invalid rules set"))
   
-  expect_warning(eucast_rules(data.frame(mo = "Escherichia coli", vancomycin = "S")))
+  expect_warning(eucast_rules(data.frame(mo = "Escherichia coli", vancomycin = "S", stringsAsFactors = TRUE)))
 
   expect_identical(colnames(example_isolates),
                    colnames(suppressWarnings(eucast_rules(example_isolates))))

tests/testthat/test-mo.R

@@ -287,4 +287,11 @@ test_that("as.mo works", {
   expect_warning(x[1] <- "invalid code")
   expect_warning(x[[1]] <- "invalid code")
   expect_warning(c(x[1], "test"))
+  
+  # joining on mo class
+  expect_identical(class(bind_rows(example_isolates, 
+                                   example_isolates,
+                                   example_isolates)$mo),
+                   "mo")
+  
 })