Merge pull request #107 from tidymodels/fix-103

Make vignette more reactive

Author: EmilHvitfeldt

DESCRIPTION

@@ -46,7 +46,7 @@ Suggests:
     testthat (>= 3.0.0),
     workflows (>= 1.1.2)
 Config/Needs/website: pkgdown, tidymodels, tidyverse, palmerpenguins,
-    patchwork, ggforce
+    patchwork, ggforce, tidyverse/tidytemplate
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

vignettes/articles/k_means.Rmd

@@ -168,8 +168,17 @@ kmeans_fit %>%
   extract_centroids()
 ```
 
-Based on the above output, we might say that Cluster_1 is penguins with smaller
-bill lengths, Cluster_2 has smaller bill depths, and Cluster_3 is penguins with
+```{r, echo=FALSE}
+centroids <- extract_centroids(kmeans_fit)
+
+small_length <- centroids$.cluster[which.min(centroids$bill_length_mm)]
+small_depth <- centroids$.cluster[which.min(centroids$bill_depth_mm)]
+other <- setdiff(levels(centroids$.cluster), c(small_length, small_depth))
+```
+
+
+Based on the above output, we might say that `r small_length` is penguins with smaller
+bill lengths, `r small_depth` has smaller bill depths, and `r other` is penguins with
 large bills in both dimensions.
 
 ## Prediction