From 0179fb3ce557e13a5c81e3e6c14eaef766e41ea0 Mon Sep 17 00:00:00 2001
From: pvictor <victor.perrier@dreamRs.fr>
Date: Wed, 30 Aug 2023 15:08:26 +0200
Subject: [PATCH] updated btn group update example

---
 examples/update-checkbox-buttons.R | 2 +-
 examples/update-radio-buttons.R    | 2 +-
 man/updateCheckboxGroupButtons.Rd  | 2 +-
 man/updateRadioGroupButtons.Rd     | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/examples/update-checkbox-buttons.R b/examples/update-checkbox-buttons.R
index 4c56a208..a243077c 100644
--- a/examples/update-checkbox-buttons.R
+++ b/examples/update-checkbox-buttons.R
@@ -28,7 +28,7 @@ server <- function(input, output, session) {
   })
 
   observeEvent(input$updatechoices, {
-    newchoices <- sample(letters, sample(2:6))
+    newchoices <- sample(letters, sample(2:10, 1))
     updateCheckboxGroupButtons(
       session = session,
       inputId = "somevalue",
diff --git a/examples/update-radio-buttons.R b/examples/update-radio-buttons.R
index 14b52d2f..02e960c3 100644
--- a/examples/update-radio-buttons.R
+++ b/examples/update-radio-buttons.R
@@ -25,7 +25,7 @@ server <- function(input, output, session) {
   })
 
   observeEvent(input$updatechoices, {
-    newchoices <- sample(letters, sample(3:7))
+    newchoices <- sample(letters, sample(3:9, 1))
     updateRadioGroupButtons(
       session = session,
       inputId = "somevalue",
diff --git a/man/updateCheckboxGroupButtons.Rd b/man/updateCheckboxGroupButtons.Rd
index 7c72d157..4d3538b5 100644
--- a/man/updateCheckboxGroupButtons.Rd
+++ b/man/updateCheckboxGroupButtons.Rd
@@ -94,7 +94,7 @@ server <- function(input, output, session) {
   })
 
   observeEvent(input$updatechoices, {
-    newchoices <- sample(letters, sample(2:6))
+    newchoices <- sample(letters, sample(2:10, 1))
     updateCheckboxGroupButtons(
       session = session,
       inputId = "somevalue",
diff --git a/man/updateRadioGroupButtons.Rd b/man/updateRadioGroupButtons.Rd
index 8db39b86..7bf901bf 100644
--- a/man/updateRadioGroupButtons.Rd
+++ b/man/updateRadioGroupButtons.Rd
@@ -93,7 +93,7 @@ server <- function(input, output, session) {
   })
 
   observeEvent(input$updatechoices, {
-    newchoices <- sample(letters, sample(3:7))
+    newchoices <- sample(letters, sample(3:9, 1))
     updateRadioGroupButtons(
       session = session,
       inputId = "somevalue",