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")
]
# Process checkbox fields
if (any(metadata$field_type == "checkbox")) {
checkbox_basenames <- metadata[
@ -85,13 +86,14 @@ REDCap_split <- function(records, metadata) {
apply(
checkbox_basenames,
1,
function(x)
function(x, y)
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],
stringsAsFactors = FALSE,
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
subtables <- unique(records$redcap_repeat_instrument)
subtables <- subtables[subtables != ""]