andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-21 14:09:08 +02:00
Code Issues Projects Releases Packages Wiki Activity

Increment to v 0.2.0 and closes #10

Browse source 
Form timestamp fields also captured now.
This commit is contained in:
Paul W. Egeler, M.S., GStat 2019-07-08 18:01:48 -04:00
commit d15c2d35ad
6 changed files with 121 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/R/REDCap_split.r
View file

@ -134,12 +134,13 @@ REDCap_split <- function(records,
# Split the table based on instrument
out <- split.data.frame(records, records$redcap_repeat_instrument)
primary_table_index <- which(names(out) == "")
if (forms == "repeating" && primary_table_name %in% subtables) {
warning("The label given to the primary table is already used by a repeating instrument. The primary table label will be left blank.")
primary_table_name <- ""
} else if (primary_table_name > "") {
names(out)[[which(names(out) == "")]] <- primary_table_name
names(out)[[primary_table_index]] <- primary_table_name
}
# Delete the variables that are not relevant
@ -153,7 +154,7 @@ REDCap_split <- function(records,
fields[!fields[,2] %in% subtables, 1]
)
)
out[[which(names(out) == primary_table_name)]] <- out[[which(names(out) == primary_table_name)]][out_fields]
out[[primary_table_index]] <- out[[primary_table_index]][out_fields]
} else {
@ -169,6 +170,24 @@ REDCap_split <- function(records,
}
}
if (forms == "all") {
out <- c(
split_non_repeating_forms(
out[[primary_table_index]],
universal_fields,
fields[!fields[,2] %in% subtables,]
),
out[-primary_table_index]
)
}
} else {
out <- split_non_repeating_forms(records, universal_fields, fields)
}
out