(v1.4.0.9041) updates based on review

tests/testthat/test-rsi.R

@@ -108,13 +108,13 @@ test_that("mic2rsi works", {
                as.rsi("S"))
   expect_equal(as.rsi(as.mic(32), "E. coli", "ampicillin", guideline = "EUCAST 2020"),
                as.rsi("R"))
-
-  expect_true(example_isolates %>%
-                mutate(amox_mic = as.mic(2)) %>%
-                select(mo, amox_mic) %>%
-                as.rsi() %>%
-                pull(amox_mic) %>%
-                is.rsi())
+  
+  expect_true(suppressWarnings(example_isolates %>%
+                                 mutate(amox_mic = as.mic(2)) %>%
+                                 select(mo, amox_mic) %>%
+                                 as.rsi() %>%
+                                 pull(amox_mic) %>%
+                                 is.rsi()))
   
   expect_warning(data.frame(mo = "E. coli",
                             NIT = c("<= 2", 32)) %>%

tests/testthat/test-zzz.R

@@ -28,6 +28,8 @@ context("zzz.R")
 test_that("imports work", {
   skip_on_cran()
   
+  # Check if these function still exist in the package (all are in Suggests field)
+  # Since GitHub Action runs every night, we will be emailed when a dependency fails based on this unit test
   import_functions <- c(
     "anti_join" = "dplyr",
     "cur_column" = "dplyr",
@@ -47,11 +49,8 @@ test_that("imports work", {
     "inline_hist" = "skimr",
     "inner_join" = "dplyr",
     "insertText" = "rstudioapi",
-    "insertText" = "rstudioapi",
-    "insertText" = "rstudioapi",
     "left_join" = "dplyr",
     "new_pillar_shaft_simple" = "pillar",
-    "peek_mask" = "dplyr",
     "peek_vars" = "tidyselect",
     "read_excel" = "readxl",
     "read_html" = "xml2",