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

unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-12-20 22:18:50 +01:00
parent f0a2cdbf5e
commit 6f4bb603ec
9 changed files with 57 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inst/tinytest/test-data.R
View File

@ -65,8 +65,6 @@ if (AMR:::pkg_is_available("tibble", also_load = FALSE)) {
}
df <- AMR:::AMR_env$MO_lookup
expect_true(nrow(df[which(df$prevalence == 1), , drop = FALSE]) < nrow(df[which(df$prevalence == 2), , drop = FALSE]))
expect_true(nrow(df[which(df$prevalence == 1), , drop = FALSE]) < nrow(df[which(df$prevalence == 3), , drop = FALSE]))
expect_true(all(c(
"mo", "fullname", "status", "kingdom", "phylum", "class", "order",
"family", "genus", "species", "subspecies", "rank", "ref", "source",