convert to char if factor

nathaneastwood · Aug 14, 2022 · fec063c · fec063c
1 parent 947de37
commit fec063c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/separate.R b/R/separate.R
@@ -91,7 +91,7 @@ separate <- function(
   stopifnot(length(col) == 1)
   stopifnot(is.character(into))
 
-  if (is.numeric(data[[col]])) {
+  if (is.numeric(data[[col]]) | is.factor(data[[col]])) {
     data[[col]] <- as.character(data[[col]])
   }