don't use glue::glue() in recipe step

ashbythorpe · Sep 26, 2023 · 8805175 · 8805175
1 parent ccda3e5
commit 8805175
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/step_nest.R b/R/step_nest.R
@@ -129,7 +129,7 @@ prep.step_nest <- function(x, training, info = NULL, ...) {
     lookup_table <- training %>%
       tidyr::nest(data = -c(!!!rlang::syms(names))) %>%
       dplyr::ungroup() %>%
-      dplyr::mutate(.nest_id = glue::glue("Nest {1:dplyr::n()}")) %>%
+      dplyr::mutate(nest_id = factor(paste("Nest", 1:dplyr::n()))) %>%
       dplyr::select(-"data")
   } else {
     lookup_table <- NULL