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

Cleaning up code for #12

Browse source 
test now compares read_csv and read.csv output directly.
This commit is contained in:
Paul W. Egeler, M.S., GStat 2019-07-29 12:30:52 -04:00
commit a83221432f
4 changed files with 43 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/R/REDCap_split.r
View file

@ -87,11 +87,7 @@ REDCap_split <- function(records,
# Process user input
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"
metadata <- as.data.frame(process_user_input(metadata)) # See issue #12
# Get the variable names in the dataset
vars_in_data <- names(records)