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

more unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-07-30 00:57:49 +02:00
parent d0a115d995
commit 510e8f22aa
6 changed files with 52 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/eucast.R
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", ""))

2
R/first_isolate.R
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)