P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 05:42:18 +02:00
Code Releases Activity

Fixes #57

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-08-28 21:13:26 +02:00
parent 1e4eaf23f2
commit 2ed5f13880
6 changed files with 25 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/ab_property.R
View File

@ -457,7 +457,11 @@ ab_validate <- function(x, property, ...) {
if (!all(x %in% AB_lookup[, property, drop = TRUE])) {
x <- as.ab(x, ...)
x <- AB_lookup[match(x, AB_lookup$ab), property, drop = TRUE]
if (all(is.na(x)) && is.list(AB_lookup[, property, drop = TRUE])) {
x <- rep(NA_character_, length(x))
} else {
x <- AB_lookup[match(x, AB_lookup$ab), property, drop = TRUE]
}
}
}