P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 20:21:58 +02:00
Code Releases Activity

(v2.1.1.9047) unit test and index

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-06-13 07:37:53 +02:00
parent cd1b37ff69
commit 3179216c81
14 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
inst/tinytest/test-sir.R
View File

@ -133,13 +133,13 @@ expect_identical(out1, as.sir(c("S", "S", "R", "R")))
if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
out2 <- data.frame(mo = "Escherichia coli",
ab = "ertapenem",
some_mics = as.mic(c(0.256, 0.5, 1, 2))) |>
mutate(across(where(is.mic), function(x) as.sir(x, mo = "mo", ab = "ab", guideline = "EUCAST 2023"))) |>
some_mics = as.mic(c(0.256, 0.5, 1, 2))) %>%
mutate(across(where(is.mic), function(x) as.sir(x, mo = "mo", ab = "ab", guideline = "EUCAST 2023"))) %>%
pull(some_mics)
out3 <- data.frame(mo = "Escherichia coli",
ab = "ertapenem",
some_mics = as.mic(c(0.256, 0.5, 1, 2))) |>
mutate_if(is.mic, as.sir, mo = "mo", ab = "ab", guideline = "EUCAST 2023") |>
some_mics = as.mic(c(0.256, 0.5, 1, 2))) %>%
mutate_if(is.mic, as.sir, mo = "mo", ab = "ab", guideline = "EUCAST 2023") %>%
pull(some_mics)
expect_identical(out1, out2)