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

bypassing factor field capture routine when no factor fields present

Browse Source
This commit is contained in:
Egeler, Paul W 2018-06-04 17:19:37 -04:00
parent 8999533098
commit 57a0538a11
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
R/R/REDCap_split.r
View File

@ -112,6 +112,8 @@ REDCap_split <- function(records, metadata) {
fields <- rbind(fields, form_complete_fields) fields <- rbind(fields, form_complete_fields)
# Process ".*\\.factor" fields supplied by REDCap's export data R script # Process ".*\\.factor" fields supplied by REDCap's export data R script
if (any(grepl("\\.factor$", names(records)))) {
factor_fields <- factor_fields <-
do.call( do.call(
"rbind", "rbind",
@ -133,6 +135,7 @@ REDCap_split <- function(records, metadata) {
) )
fields <- rbind(fields, factor_fields) fields <- rbind(fields, factor_fields)
}
# Identify the subtables in the data # Identify the subtables in the data
subtables <- unique(records$redcap_repeat_instrument) subtables <- unique(records$redcap_repeat_instrument)