Avoid superseded dplyr::sample_n() (#1120)

rstudio · Oct 3, 2024 · 85b0428 · 85b0428
1 parent e862e0b
commit 85b0428
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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(