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

updated taxonomy

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-12-12 00:14:56 +01:00
parent eed1c14b96
commit 8da2467209
46 changed files with 132944 additions and 57370 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
R/zzz.R
View File

@ -206,8 +206,13 @@ create_MO_lookup <- function() {
MO_lookup[which(MO_lookup$kingdom == "Archaea"), "kingdom_index"] <- 4
# all the rest
MO_lookup[which(is.na(MO_lookup$kingdom_index)), "kingdom_index"] <- 5
MO_lookup$fullname_lower <- MO_FULLNAME_LOWER
if (length(MO_FULLNAME_LOWER) != nrow(MO_lookup)) {
packageStartupMessage("fullname_lower not same size - applied tolower(), update sysdata.rda!")
MO_lookup$fullname_lower <- tolower(MO_lookup$fullname)
} else {
MO_lookup$fullname_lower <- MO_FULLNAME_LOWER
}
MO_lookup$full_first <- substr(MO_lookup$fullname_lower, 1, 1)
MO_lookup$species_first <- substr(MO_lookup$species, 1, 1)