(v0.8.0.9034) add cid to antivirals

R/mo_property.R

@@ -396,6 +396,8 @@ mo_property <- function(x, property = "fullname", language = get_locale(), ...)
 }
 
 mo_validate <- function(x, property, ...) {
+  
+  load_AMR_package()
 
   dots <- list(...)
   Becker <- dots$Becker
@@ -407,11 +409,6 @@ mo_validate <- function(x, property, ...) {
     Lancefield <- FALSE
   }
 
-  if (!"AMR" %in% base::.packages()) {
-    require("AMR")
-    # check .onLoad() in R/zzz.R: data tables are created there.
-  }
-
   # try to catch an error when inputting an invalid parameter
   # so the 'call.' can be set to FALSE
   tryCatch(x[1L] %in% AMR::microorganisms[1, property],