P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 22:21:52 +02:00
Code Releases Activity

(v1.2.0.9026) move to github

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-07-08 14:48:06 +02:00
parent 2134fc76e2
commit 76fc8e1b14
211 changed files with 1090 additions and 1748 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
data-raw/reproduction_of_microorganisms.R
View File

@ -821,6 +821,18 @@ sum(duplicated(MOs$mo))
sum(duplicated(MOs$fullname))
colnames(MOs)
# add the ones we would delete now, that have unexisting codes and names (also in the old names)
MOs <- MOs %>%
mutate(mo = as.character(mo)) %>%
bind_rows(
AMR::microorganisms %>%
mutate(mo = as.character(mo)) %>%
filter(genus %in% gen & !fullname %in% AMR::microorganisms$fullname &
!fullname %in% AMR::microorganisms.old$fullname &
!mo %in% microorganisms$mo) %>%
select(all_of(colnames(AMR::microorganisms)))
)
# here we welcome the new ones:
MOs %>% arrange(fullname) %>% filter(!fullname %in% AMR::microorganisms$fullname) %>% View()
MOs.old %>% arrange(fullname) %>% filter(!fullname %in% AMR::microorganisms.old$fullname) %>% View()