adding whitespace

This commit is contained in:
Egeler, Paul W 2018-06-01 18:06:58 -04:00
parent cd8787fa9a
commit dcc707af17

View File

@ -70,12 +70,12 @@ REDCap_split <- function(records, metadata) {
checkbox_basenames, checkbox_basenames,
1, 1,
function(x) function(x)
data.frame( data.frame(
field_name = names(records)[grepl(paste0("^", x[1], "___.+$"), names(records))], field_name = names(records)[grepl(paste0("^", x[1], "___.+$"), names(records))],
form_name = x[2], form_name = x[2],
stringsAsFactors = FALSE, stringsAsFactors = FALSE,
row.names = NULL row.names = NULL
) )
) )
) )