convert to char if factor

nathaneastwood · Aug 3, 2022 · 1f2d19c · 1f2d19c
1 parent 3b8f361
commit 1f2d19c
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]])
   }