mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 20:02:04 +02:00
ab_info, other bug fixes
This commit is contained in:
1
R/mo.R
1
R/mo.R
@ -349,6 +349,7 @@ exec_as.mo <- function(x,
|
||||
|
||||
# conversion of old MO codes from v0.5.0 (ITIS) to later versions (Catalogue of Life)
|
||||
if (any(x %like% "^[BFP]_[A-Z]{3,7}") & !all(x %in% microorganisms$mo)) {
|
||||
x <- gsub("^F_CANDD_GLB$", "F_CANDD_GLA", x) # specific old code for C. glabrata
|
||||
leftpart <- gsub("^([BFP]_[A-Z]{3,7}).*", "\\1", x)
|
||||
if (any(leftpart %in% names(mo_codes_v0.5.0))) {
|
||||
rightpart <- gsub("^[BFP]_[A-Z]{3,7}(.*)", "\\1", x)
|
||||
|
Reference in New Issue
Block a user