1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:46:11 +01:00
This commit is contained in:
dr. M.S. (Matthijs) Berends 2022-12-20 22:41:39 +01:00
parent 6f4bb603ec
commit 4c42a43f7d
4 changed files with 7 additions and 10 deletions

View File

@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 1.8.2.9067 Version: 1.8.2.9068
Date: 2022-12-20 Date: 2022-12-20
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

View File

@ -1,4 +1,4 @@
# AMR 1.8.2.9067 # AMR 1.8.2.9068
*(this beta version will eventually become v2.0! We're happy to reach a new major milestone soon!)* *(this beta version will eventually become v2.0! We're happy to reach a new major milestone soon!)*

View File

@ -67,8 +67,8 @@ expect_equal(
# first non-ICU isolates # first non-ICU isolates
expect_equal( expect_identical(
sum( as.integer(sum(
first_isolate(example_isolates, first_isolate(example_isolates,
col_mo = "mo", col_mo = "mo",
col_date = "date", col_date = "date",
@ -78,8 +78,8 @@ expect_equal(
icu_exclude = TRUE icu_exclude = TRUE
), ),
na.rm = TRUE na.rm = TRUE
), )),
942 942L
) )
# set 1500 random observations to be of specimen type 'Urine' # set 1500 random observations to be of specimen type 'Urine'

View File

@ -114,7 +114,7 @@ expect_identical(
"Paraburkholderia nodosa" "Paraburkholderia nodosa"
)) ))
), ),
rep("B_PRBRK_NODS", 4) rep("B_PRBRK_NODS", 2)
) )
# empty values # empty values
@ -198,9 +198,6 @@ if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0")) {
expect_true(example_isolates %>% pull(mo) %>% is.mo()) expect_true(example_isolates %>% pull(mo) %>% is.mo())
} }
# unknown results
expect_warning(as.mo("INVALID"))
# print # print
expect_stdout(print(as.mo(c("B_ESCHR_COLI", NA)))) expect_stdout(print(as.mo(c("B_ESCHR_COLI", NA))))