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

documentation, file permissions

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-01-19 12:54:53 +01:00
parent b94bc6c67b
commit 593d740b84
78 changed files with 85 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/mo_property.R
View File

@ -777,7 +777,7 @@ mo_info <- function(x, language = get_AMR_locale(), keep_synonyms = getOption("A
info <- lapply(x, function(y) {
c(
list(identifier = x),
list(mo = as.character(x)),
mo_taxonomy(y, language = language, keep_synonyms = keep_synonyms),
list(
status = mo_status(y, language = language, keep_synonyms = keep_synonyms),
@ -894,6 +894,8 @@ mo_validate <- function(x, property, language, keep_synonyms = keep_synonyms, ..
return(set_clean_class(x, new_class = c("mo", "character")))
} else if (property == "snomed") {
return(sort(as.character(eval(parse(text = x)))))
} else if (property == "prevalence") {
return(as.double(x))
} else {
# everything else as character
return(as.character(x))