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

simplify code to convert factors to character

Browse Source
This commit is contained in:
Egeler, Paul W 2018-06-04 11:32:23 -04:00
parent 568ae05879
commit f7c1e01eff
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
R/R/REDCap_split.r
View File

@ -64,12 +64,7 @@ REDCap_split <- function(records, metadata) {
)
# Make sure that no metadata columns are factors
metadata_factors <- sapply(metadata, inherits, "factor")
if(any(metadata_factors)) {
metadata[metadata_factors] <- lapply(metadata[metadata_factors], as.character)
}
metadata <- rapply(metadata, as.character, classes = "factor", how = "replace")
# Find the fields and associated form
fields <- metadata[