more unit tests

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2018-07-30 00:57:49 +02:00
1 parent d0a115d995
commit 510e8f22aa
6 files changed
+52 -4

No files matched your search

+1 -1
View File
@@ -275,7 +275,7 @@ EUCAST_rules <- function(tbl,
# join to microorganisms data set
if (!tbl %>% pull(col_bactid) %>% is.bactid()) {
# warning("Improve integrity of the `", col_bactid, "` column by transforming it with 'as.bactid'.")
warning("Improve integrity of the `", col_bactid, "` column by transforming it with 'as.bactid'.")
}
tbl <- tbl %>% left_join_microorganisms(by = col_bactid, suffix = c("_tempmicroorganisms", ""))
+1 -1
View File
@@ -171,7 +171,7 @@ first_isolate <- function(tbl,
if (!is.na(col_bactid)) {
if (!tbl %>% pull(col_bactid) %>% is.bactid()) {
# warning("Improve integrity of the `", col_bactid, "` column by transforming it with 'as.bactid'.")
warning("Improve integrity of the `", col_bactid, "` column by transforming it with 'as.bactid'.")
}
# join to microorganisms data set
tbl <- tbl %>% left_join_microorganisms(by = col_bactid)