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

(v1.5.0.9023) mo properties speed improvement

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-02-21 23:19:40 +01:00
parent 062c49fca1
commit 0fdabff1ba
18 changed files with 62 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/mo_property.R
View File

@ -723,12 +723,6 @@ mo_validate <- function(x, property, language, ...) {
x <- exec_as.mo(x, property = property, initial_search = FALSE, language = language, ...)
} else if (!all(x %in% MO_lookup[, property, drop = TRUE])
| has_Becker_or_Lancefield) {
accepted_args <- names(as.list(args("as.mo")))
accepted_args <- accepted_args[!accepted_args %in% c("", "...", "x", "property")]
stop_if(!all(names(dots) %in% names(as.list(args("as.mo")))),
"invalid argument(s): ", vector_and(names(dots)[!names(dots) %in% names(as.list(args("as.mo")))], quotes = "'"),
".\nAccepted arguments are ", vector_and(accepted_args, quotes = "'"), ".",
call = FALSE)
x <- exec_as.mo(x, property = property, language = language, ...)
}