guess_ab

2025-07-12 23:01:51 +02:00 · 2019-01-03 23:56:19 +01:00
parent 6b2d464f8c
commit 80ea555663
14 changed files with 533 additions and 270 deletions
--- a/tests/testthat/test-eucast_rules.R
+++ b/tests/testthat/test-eucast_rules.R
@ -86,12 +86,14 @@ test_that("EUCAST rules work", {

  # amox is inferred by benzylpenicillin in Kingella kingae
  expect_equal(
-    as.list(eucast_rules(
-      data.frame(mo = as.mo("Kingella kingae"),
-                 peni = "S",
-                 amox = "-",
-                 stringsAsFactors = FALSE)
-      , info = FALSE))$amox,
+    suppressWarnings(
+      as.list(eucast_rules(
+        data.frame(mo = as.mo("Kingella kingae"),
+                   peni = "S",
+                   amox = "-",
+                   stringsAsFactors = FALSE)
+        , info = FALSE))$amox
+    ),
    "S")

  # also test norf