andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 13:17:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

Working on #7. Appears to be a functioning patch

Browse source 
NEEDS UNIT TESTS!!!
This commit is contained in:
pegeler 2018-06-23 02:04:26 -04:00
commit 4f2974701c
4 changed files with 4217 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

36
R/R/REDCap_split.r
View file

@ -174,11 +174,24 @@ REDCap_split <- function(records, metadata) {
subtables <- unique(records$redcap_repeat_instrument)
subtables <- subtables[subtables != ""]
# Variables to be at the beginning of each repeating instrument
repeat_instrument_fields <- c(
vars_in_data[1:3],
grep("redcap_repeat_instrument\\.factor", vars_in_data, value = TRUE)
# Variables to be present in each output table
universal_fields <- c(
vars_in_data[1],
grep(
"^redcap_(?!(repeat)).*",
vars_in_data,
value = TRUE,
perl = TRUE
)
)
# Variables to be at the beginning of each repeating instrument
repeat_instrument_fields <- grep(
"^redcap_repeat.*",
vars_in_data,
value = TRUE
)
# Split the table based on instrument
out <- split.data.frame(records, records$redcap_repeat_instrument)
@ -188,12 +201,23 @@ REDCap_split <- function(records, metadata) {
if (i == "") {
out_fields <- which(vars_in_data %in% fields[!fields[,2] %in% subtables, 1])
out_fields <- which(
vars_in_data %in% c(
universal_fields,
fields[!fields[,2] %in% subtables, 1]
)
)
out[[which(names(out) == "")]] <- out[[which(names(out) == "")]][out_fields]
} else {
out_fields <- which(vars_in_data %in% c(repeat_instrument_fields, fields[fields[,2] == i, 1]))
out_fields <- which(
vars_in_data %in% c(
universal_fields,
repeat_instrument_fields,
fields[fields[,2] == i, 1]
)
)
out[[i]] <- out[[i]][out_fields]
}