(v3.0.1.9021) add guideline to resistance() and susceptibility()

R/zzz.R

@@ -115,6 +115,21 @@ AMR_env$cross_icon <- if (isTRUE(base::l10n_info()$`UTF-8`)) "\u00d7" else "x"
 }
 
 .onAttach <- function(libname, pkgname) {
+  if (interactive() && is.null(getOption("AMR_guideline"))) {
+    packageStartupMessage(
+      word_wrap(
+        "Welcome to AMR v", format(utils::packageVersion("AMR")), ". ",
+        "You have not set the 'AMR_guideline' option to either \"CLSI\" or \"EUCAST\". ",
+        "You can set it using either:\n",
+        "  options(AMR_guideline = \"CLSI\")\n",
+        "  options(AMR_guideline = \"EUCAST\")\n",
+        "See `?AMR-options`. While unset, the AMR package uses the current default guideline: ", AMR::clinical_breakpoints$guideline[1], ".",
+        add_fn = NULL
+      )
+    )
+  }
+
+
   # if custom ab option is available, load it
   if (!is.null(getOption("AMR_custom_ab")) && file.exists(getOption("AMR_custom_ab", default = ""))) {
     if (getOption("AMR_custom_ab") %unlike% "[.]rds$") {