andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 05:07:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

field names validity checking also added while at it

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-01-09 10:27:37 +01:00
commit 407ff1e73a
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/read_redcap_tables.R
View file

@ -42,6 +42,16 @@ read_redcap_tables <- function(uri,
m <- REDCapR::redcap_metadata_read(redcap_uri = uri, token = token)[["data"]]
if (!is.null(fields)){
fields_test <- fields %in% unique(m$field_name)
if (any(!fields_test)){
print(paste0("The following field names are invalid: ", paste(fields[!fields_test],collapse=", "),"."))
stop("Not all supplied field names are valid")
}
}
if (!is.null(forms)){
@ -49,7 +59,7 @@ read_redcap_tables <- function(uri,
if (any(!forms_test)){
print(paste0("The following form names are invalid: ", paste(forms[!forms_test],collapse=", "),"."))
stop("Not all supplied forms are valid")
stop("Not all supplied form names are valid")
}
}