From f7c1e01eff3f9b8e48505c7ec25147d09a8d4ed5 Mon Sep 17 00:00:00 2001 From: "Egeler, Paul W" Date: Mon, 4 Jun 2018 11:32:23 -0400 Subject: [PATCH] simplify code to convert factors to character --- R/R/REDCap_split.r | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/R/R/REDCap_split.r b/R/R/REDCap_split.r index 485e48f..efca58e 100644 --- a/R/R/REDCap_split.r +++ b/R/R/REDCap_split.r @@ -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[