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

(v1.7.1.9056) unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-11-29 11:55:18 +01:00
parent c8698347cb
commit 5375f75829
21 changed files with 42 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
data-raw/reproduction_of_microorganisms_update.R
View File

@ -365,7 +365,9 @@ MOs <- MOs %>%
records_ids <- taxonomy %>%
mutate(across(1:3, function(x) { x[is.na(x)] <- ""; x}),
fullname = trimws(paste(genus_name, sp_epithet, subsp_epithet))) %>%
transmute(fullname, species_id = as.numeric(record_no))
transmute(fullname, species_id = as.numeric(record_no)) %>%
arrange(fullname, species_id) %>%
distinct(fullname, .keep_all = TRUE)
message("Adding ", sum(records_ids$fullname %in% microorganisms$fullname), " LPSN record IDs")
MOs <- MOs %>%
select(-species_id) %>%