(v1.3.0.9027) unit tests

R/eucast_rules.R

@@ -157,7 +157,7 @@ eucast_rules <- function(x,
                   "\n\nThis may overwrite your existing data if you use e.g.:",
                   "\ndata <- eucast_rules(data, verbose = TRUE)\n\nDo you want to continue?")
     showQuestion <- import_fn("showQuestion", "rstudioapi", error_on_fail = FALSE)
-    if (!is.null(showQuestion)) {
+    if (!is.null(showQuestion) & interactive()) {
       q_continue <- showQuestion("Using verbose = TRUE with eucast_rules()", txt)
     } else {
       q_continue <- utils::menu(choices = c("OK", "Cancel"), graphics = FALSE, title = txt)

R/globals.R

@@ -54,7 +54,10 @@ globalVariables(c(".rowid",
                   "old_name",
                   "pattern",
                   "R",
+                  "reference.rule_group",
+                  "reference.version",
                   "rsi_translation",
+                  "rowid",
                   "rule_group",
                   "rule_name",
                   "se_max",