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

(v1.8.1.9013) add Toxoplasma

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-06-10 13:15:23 +02:00
parent b84d647cac
commit 7f981e7778
29 changed files with 432 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/zzz.R
View File

@@ -131,7 +131,12 @@ create_MO_lookup <- function() {
MO_lookup[which(is.na(MO_lookup$kingdom_index)), "kingdom_index"] <- 5
# use this paste instead of `fullname` to work with Viridans Group Streptococci, etc.
MO_lookup$fullname_lower <- MO_FULLNAME_LOWER
if (length(MO_FULLNAME_LOWER) == nrow(MO_lookup)) {
MO_lookup$fullname_lower <- MO_FULLNAME_LOWER
} else {
MO_lookup$fullname_lower <- ""
warning("MO table updated - Run: source(\"data-raw/_internals.R\")", call. = FALSE)
}
# add a column with only "e coli" like combinations
MO_lookup$g_species <- gsub("^([a-z])[a-z]+ ([a-z]+) ?.*", "\\1 \\2", MO_lookup$fullname_lower, perl = TRUE)