mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 05:20:23 +01:00
fix read_redcap_tables
This commit is contained in:
parent
0628bde488
commit
1bdbb0df94
6
NEWS.md
6
NEWS.md
@ -1,4 +1,8 @@
|
|||||||
# REDCapCAST 24.3.1 - in development
|
# REDCapCAST 24.4.1 - in development
|
||||||
|
|
||||||
|
### Functions
|
||||||
|
|
||||||
|
* Fix: `read_redcap_tables()`: field names testing allows to include "[form_name]_complete" fields.
|
||||||
|
|
||||||
### Documentation and more
|
### Documentation and more
|
||||||
|
|
||||||
|
@ -35,7 +35,7 @@ read_redcap_tables <- function(uri,
|
|||||||
REDCapR::redcap_metadata_read(redcap_uri = uri, token = token)[["data"]]
|
REDCapR::redcap_metadata_read(redcap_uri = uri, token = token)[["data"]]
|
||||||
|
|
||||||
if (!is.null(fields)) {
|
if (!is.null(fields)) {
|
||||||
fields_test <- fields %in% unique(m$field_name)
|
fields_test <- fields %in% c(m$field_name,paste(unique(m$form_name),"_complete"))
|
||||||
|
|
||||||
if (any(!fields_test)) {
|
if (any(!fields_test)) {
|
||||||
print(paste0("The following field names are invalid: ",
|
print(paste0("The following field names are invalid: ",
|
||||||
|
Loading…
Reference in New Issue
Block a user