Update example for group_vfold_cv()

NEWS.md

@@ -2,6 +2,9 @@
 
 * The lag argument for `initial_time_split()` has been soft deprecated (@bjornkallerud, #592).
 
+* The example for `group_vfold_cv()` has been updated to use current dplyr functions (#597).
+
+
 # rsample 1.3.1
 
 * The new `internal_calibration_split()` function and its methods for various resamples is for usage in tune to create a internal split of the analysis set to fit the preprocessor and model on one part and the post-processor on the other part (#483, #488, #489, #569, #575,  #577, #582).

R/vfold.R

@@ -120,7 +120,9 @@ vfold_cv <- function(
 
   ## Save some overall information
 
-  if (!is.null(strata)) names(strata) <- NULL
+  if (!is.null(strata)) {
+    names(strata) <- NULL
+  }
   cv_att <- list(
     v = v,
     repeats = repeats,
@@ -230,8 +232,8 @@ vfold_splits <- function(
 #' city_strata <- Sacramento |>
 #'   group_by(city) |>
 #'   summarize(strata = mean(price)) |>
-#'   summarize(city = city,
-#'             strata = cut(strata, quantile(strata), include.lowest = TRUE))
+#'   reframe(city = city,
+#'           strata = cut(strata, quantile(strata), include.lowest = TRUE))
 #'
 #' sacramento_data <- Sacramento |>
 #'   full_join(city_strata, by = "city")