From 85b042832e1520b5f06dc95c769396816be76eca Mon Sep 17 00:00:00 2001
From: olivroy <52606734+olivroy@users.noreply.github.com>
Date: Thu, 3 Oct 2024 10:55:24 -0400
Subject: [PATCH] Avoid superseded `dplyr::sample_n()` (#1120)

---
 vignettes/sidebars/index.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vignettes/sidebars/index.Rmd b/vignettes/sidebars/index.Rmd
index f7312ab8b..23de706e6 100644
--- a/vignettes/sidebars/index.Rmd
+++ b/vignettes/sidebars/index.Rmd
@@ -281,7 +281,7 @@ library(plotly)
 library(leaflet)
 
 # Creates the "filter link" between the controls and plots
-dat <- SharedData$new(dplyr::sample_n(diamonds, 1000))
+dat <- SharedData$new(dplyr::slice_sample(diamonds, n = 1000))
 
 # Sidebar elements (e.g., filter controls)
 filters <- list(