mirror of
https://github.com/msberends/AMR.git
synced 2024-12-25 18:06:12 +01:00
fixes
This commit is contained in:
parent
6f4bb603ec
commit
4c42a43f7d
@ -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)
|
||||||
|
2
NEWS.md
2
NEWS.md
@ -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!)*
|
||||||
|
|
||||||
|
@ -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'
|
||||||
|
@ -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))))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user