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

(v1.6.0.9013) website update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-04-29 17:16:30 +02:00
parent 5e06b20d43
commit a9fd4aa49f
41 changed files with 931 additions and 842 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tests/testthat/test-_deprecated.R
View File

@ -29,4 +29,17 @@ test_that("deprecated functions work", {
skip_on_cran()
expect_identical(suppressWarnings(p_symbol(c(0.001, 0.01, 0.05, 0.1, 1, NA, 3))),
c("***", "**", "*", ".", " ", NA, NA))
expect_warning(key_antibiotics(example_isolates))
expect_identical(suppressWarnings(key_antibiotics(example_isolates)),
key_antimicrobials(example_isolates, antifungal = NULL))
expect_warning(key_antibiotics_equal("S", "S"))
expect_identical(suppressWarnings(key_antibiotics_equal("S", "S")),
antimicrobials_equal("S", "S", type = "keyantimicrobials"))
expect_warning(filter_first_weighted_isolate(example_isolates))
expect_identical(suppressWarnings(filter_first_weighted_isolate(example_isolates)),
filter_first_isolate(example_isolates))
})

3
tests/testthat/test-first_isolate.R
View File

@ -176,8 +176,7 @@ test_that("first isolates work", {
# shortcuts
expect_identical(filter_first_isolate(example_isolates),
subset(example_isolates, first_isolate(example_isolates, method = "episode-based")))
expect_identical(filter_first_weighted_isolate(example_isolates),
subset(example_isolates, first_isolate(example_isolates, method = "phenotype-based")))
# notice that all mo's are distinct, so all are TRUE
expect_true(all(example_isolates %pm>%