mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 04:02:19 +02:00
(v1.4.0.9022) small bugfix
This commit is contained in:
@ -598,7 +598,7 @@ mo_validate <- function(x, property, language, ...) {
|
||||
}
|
||||
|
||||
if (property == "mo") {
|
||||
return(to_class_mo(x))
|
||||
return(set_clean_class(x, new_class = c("mo", "character")))
|
||||
} else if (property == "snomed") {
|
||||
return(as.double(eval(parse(text = x))))
|
||||
} else {
|
||||
|
Reference in New Issue
Block a user