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

check for 2.0

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-03-12 13:02:37 +01:00
parent 9179e98e12
commit 80cfc503c2
25 changed files with 127 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/mo.R
View File

@ -329,7 +329,7 @@ as.mo <- function(x,
result_mo <- NA_character_
} else {
result_mo <- AMR_env$MO_lookup$mo[match(top_hits[1], AMR_env$MO_lookup$fullname)]
AMR_env$mo_uncertainties <- rbind2(
AMR_env$mo_uncertainties <- rbind_AMR(
AMR_env$mo_uncertainties,
data.frame(
original_input = x_search,
@ -343,7 +343,7 @@ as.mo <- function(x,
)
)
# save to package env to save time for next time
AMR_env$mo_previously_coerced <- unique(rbind2(
AMR_env$mo_previously_coerced <- unique(rbind_AMR(
AMR_env$mo_previously_coerced,
data.frame(
x = paste(x_search, minimum_matching_score),