mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2025-09-12 10:39:39 +02:00
bypassing factor field capture routine when no factor fields present
This commit is contained in:
parent
8999533098
commit
57a0538a11
1 changed files with 23 additions and 20 deletions
|
@ -112,6 +112,8 @@ REDCap_split <- function(records, metadata) {
|
|||
fields <- rbind(fields, form_complete_fields)
|
||||
|
||||
# Process ".*\\.factor" fields supplied by REDCap's export data R script
|
||||
if (any(grepl("\\.factor$", names(records)))) {
|
||||
|
||||
factor_fields <-
|
||||
do.call(
|
||||
"rbind",
|
||||
|
@ -133,6 +135,7 @@ REDCap_split <- function(records, metadata) {
|
|||
)
|
||||
|
||||
fields <- rbind(fields, factor_fields)
|
||||
}
|
||||
|
||||
# Identify the subtables in the data
|
||||
subtables <- unique(records$redcap_repeat_instrument)
|
||||
|
|
Loading…
Add table
Reference in a new issue