(v0.9.0.9023) EUCAST 2020 guidelines

tests/testthat/test-data.R

@@ -22,6 +22,9 @@
 context("data.R")
 
 test_that("data sets are valid", {
+  
+  expect_true(check_dataset_integrity()) # in misc.R
+  
   # IDs should always be unique
   expect_identical(nrow(microorganisms), length(unique(microorganisms$mo)))
   expect_identical(class(microorganisms$mo), "mo")

tests/testthat/test-mo.R

@@ -26,7 +26,7 @@ test_that("as.mo works", {
   skip_on_cran()
  
   library(dplyr)
-  MOs <- AMR::microorganisms %>% filter(!is.na(mo), nchar(mo) > 3)
+  MOs <- microorganisms %>% filter(!is.na(mo), nchar(mo) > 3)
   expect_identical(as.character(MOs$mo), as.character(as.mo(MOs$mo)))
   
   expect_identical(

tests/testthat/test-mo_property.R

@@ -63,7 +63,7 @@ test_that("mo_property works", {
   expect_true(mo_url("Escherichia coli") %like% "www.catalogueoflife.org")
 
   # test integrity
-  MOs <- AMR::microorganisms
+  MOs <- microorganisms
   expect_identical(MOs$fullname, mo_fullname(MOs$fullname, language = "en"))
 
   # check languages