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

(v1.6.0.9016) website update and c() fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-05-03 13:06:43 +02:00
parent 12a8d59869
commit f33e61bac7
25 changed files with 97 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/aa_helper_functions.R
View File

@ -458,7 +458,7 @@ stop_ifnot <- function(expr, ..., call = TRUE) {
ifelse(!is.na(y), y, NA))
}
class_integrity_check <- function(value, type, check_vector) {
return_after_integrity_check <- function(value, type, check_vector) {
if (!all(value[!is.na(value)] %in% check_vector)) {
warning_(paste0("invalid ", type, ", NA generated"), call = FALSE)
value[!value %in% check_vector] <- NA