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

r-pkg: preserving order of columns in output tables

Browse Source
This commit is contained in:
Egeler, Paul W 2018-06-06 18:17:57 -04:00
parent fc1cad40be
commit 91d9e8e8dd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/R/REDCap_split.r
View File

@ -159,12 +159,12 @@ REDCap_split <- function(records, metadata) {
if (i == "") { if (i == "") {
out_fields <- fields[!fields[,2] %in% subtables, 1] out_fields <- which(vars_in_data %in% fields[!fields[,2] %in% subtables, 1])
out[[which(names(out) == "")]] <- out[[which(names(out) == "")]][out_fields] out[[which(names(out) == "")]] <- out[[which(names(out) == "")]][out_fields]
} else { } else {
out_fields <- c(repeat_instrument_fields, fields[fields[,2] == i, 1]) out_fields <- which(vars_in_data %in% c(repeat_instrument_fields, fields[fields[,2] == i, 1]))
out[[i]] <- out[[i]][out_fields] out[[i]] <- out[[i]][out_fields]
} }