andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 13:30:23 +01:00
Code Issues Packages Projects Releases 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
parent 7cae55dba4
commit 407ff1e73a
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
NEWS.md
View File

@ -2,7 +2,7 @@
### Functions ### Functions
* Fix: `read_redcap_tables()`: checking form names based on data dictionary to allow handling of non-longitudinal projects. Prints invalid form names and invalid event names. If invalid form names are supplied to `REDCapR::redcap_read()` (which is the backbone), all forms are exported, which is not what we want with a focused approach. Invalid event names will give an output with a rather peculiar formatting. * Fix: `read_redcap_tables()`: checking form names based on data dictionary to allow handling of non-longitudinal projects. Prints invalid form names and invalid event names. If invalid form names are supplied to `REDCapR::redcap_read()` (which is the backbone), all forms are exported, which is not what we want with a focused approach. Invalid event names will give an output with a rather peculiar formatting. Checking of field names validity is also added.
# REDCapCAST 23.12.1 # REDCapCAST 23.12.1

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"]] 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)){ if (!is.null(forms)){
@ -49,7 +59,7 @@ read_redcap_tables <- function(uri,
if (any(!forms_test)){ if (any(!forms_test)){
print(paste0("The following form names are invalid: ", paste(forms[!forms_test],collapse=", "),".")) 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")
} }
} }