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

(v0.7.1.9087) small fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-09-23 23:09:50 +02:00
parent 38336d7408
commit 04cd0d25db
9 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/mo_history.R
View File

@ -31,9 +31,10 @@ set_mo_history <- function(x, mo, uncertainty_level, force = FALSE, disable = FA
mo <- mo[!x %in% microorganisms.codes$code & !x %in% microorganisms.translation$mo_old]
x <- x[!x %in% microorganisms.codes$code & !x %in% microorganisms.translation$mo_old]
warning_new_write <- FALSE
if (base::interactive() | force == TRUE) {
mo_hist <- read_mo_history(uncertainty_level = uncertainty_level, force = force)
warning_new_write <- FALSE
df <- data.frame(x, mo, stringsAsFactors = FALSE) %>%
distinct(x, .keep_all = TRUE) %>%
filter(!is.na(x) & !is.na(mo))