mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 11:01:57 +02:00
(v1.4.0.9041) updates based on review
This commit is contained in:
@ -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)) %>%
|
||||
|
@ -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",
|
||||
|
Reference in New Issue
Block a user