andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-10-30 03:21:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Handles new fields added by REDCap data export R script

Browse Source
This commit is contained in:
Egeler, Paul W 2018-06-04 16:45:44 -04:00
parent f7c1e01eff
commit 8999533098
1 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
R/R/REDCap_split.r
View File

@ -72,6 +72,7 @@ REDCap_split <- function(records, metadata) {
c("field_name", "form_name") c("field_name", "form_name")
] ]
# Process checkbox fields
if (any(metadata$field_type == "checkbox")) { if (any(metadata$field_type == "checkbox")) {
checkbox_basenames <- metadata[ checkbox_basenames <- metadata[
@ -85,13 +86,14 @@ REDCap_split <- function(records, metadata) {
apply( apply(
checkbox_basenames, checkbox_basenames,
1, 1,
function(x) function(x, y)
data.frame( data.frame(
field_name = names(records)[grepl(paste0("^", x[1], "___.+$"), names(records))], field_name = y[grepl(paste0("^", x[1], "___[0-9]+$"), y)],
form_name = x[2], form_name = x[2],
stringsAsFactors = FALSE, stringsAsFactors = FALSE,
row.names = NULL row.names = NULL
) ),
y = names(records)
) )
) )
@ -99,6 +101,39 @@ REDCap_split <- function(records, metadata) {
} }
# Process form_complete fields
form_names <- unique(metadata$form_name)
form_complete_fields <- data.frame(
field_name = paste0(form_names, "_complete"),
form_name = form_names,
stringsAsFactors = FALSE
)
fields <- rbind(fields, form_complete_fields)
# Process ".*\\.factor" fields supplied by REDCap's export data R script
factor_fields <-
do.call(
"rbind",
apply(
fields,
1,
function(x, y) {
field_indices <- grepl(paste0("^", x[1], "\\.factor$"), y)
if (any(field_indices))
data.frame(
field_name = y[field_indices],
form_name = x[2],
stringsAsFactors = FALSE,
row.names = NULL
)
},
y = names(records)
)
)
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)
subtables <- subtables[subtables != ""] subtables <- subtables[subtables != ""]