(v1.4.0.9038) docu update

tests/testthat/test-mo.R

@@ -293,6 +293,8 @@ test_that("as.mo works", {
   expect_warning(c(x[1], "test"))
   
   # ignoring patterns
+  expect_equal(as.character(as.mo(c("E. coli", "E. coli ignorethis"), ignore_pattern = "this")),
+               c("B_ESCHR_COLI", NA))
   
   # frequency tables
   if (require("cleaner")) {

tests/testthat/test-rsi.R

@@ -159,4 +159,12 @@ test_that("disk2rsi works", {
                 as.rsi(guideline = "CLSI") %>%
                 pull(amox_disk) %>%
                 is.rsi())
+  
+  expect_s3_class(suppressWarnings(as.rsi(data.frame(mo = "Escherichia coli",
+                                                     amoxi = c("R", "S", "I", "invalid")))$amoxi), "rsi")
+  
+  # frequency tables
+  if (require("cleaner")) {
+    expect_s3_class(cleaner::freq(example_isolates$AMX), "freq")
+  }
 })