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

(v0.7.0.9001) new pathovars, small fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-06-07 22:47:37 +02:00
parent 04c75e8e36
commit f02679fb63
83 changed files with 686 additions and 583 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/mo_property.R
View File

@ -238,7 +238,8 @@ mo_kingdom <- function(x, language = get_locale(), ...) {
x <- as.mo(x, ...)
kngdm <- mo_validate(x = x, property = "kingdom", ...)
if (language != "en") {
kngdm[x == "UNKNOWN"] <- t(kngdm[x == "UNKNOWN"], language = language)
# translate only unknown, so "Bacteria" (the official taxonomic name) would not change
kngdm[identical(x, "UNKNOWN")] <- t(kngdm[identical(x, "UNKNOWN")], language = language)
}
kngdm
}