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

Closing issue #12

Browse source 
test included
This commit is contained in:
Paul W. Egeler, MS, GStat 2019-07-26 17:26:33 -04:00
commit cb253af3ba
3 changed files with 37 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/R/REDCap_split.r
View file

@ -89,6 +89,10 @@ REDCap_split <- function(records,
records <- process_user_input(records)
metadata <- process_user_input(metadata)
# Remove "tbl_df" class from metadata, if present, due to difference in
# `[.tbl_df` behavior as compared to `[.data.frame` behavior (see issue #12)
if(inherits(metadata, "tbl_df")) class(metadata) <- "data.frame"
# Get the variable names in the dataset
vars_in_data <- names(records)
@ -100,6 +104,15 @@ REDCap_split <- function(records,
stop("There are no repeating instruments in this dataset.")
}
# Remove NAs from `redcap_repeat_instrument` (see issue #12)
if(any(is.na(records$redcap_repeat_instrument))) {
records$redcap_repeat_instrument <- ifelse(
is.na(records$redcap_repeat_instrument),
"",
as.character(records$redcap_repeat_instrument)
)
}
# Standardize variable names for metadata
names(metadata) <- metadata_names