Merge pull request #36 from CRI-iAtlas/add_select_all

Add select all
CRI-iAtlas · Dec 17, 2024 · c6a8389 · c6a8389
2 parents 92af72a + b951562
commit c6a8389
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 1 deletion.
diff --git a/R/elements_server.R b/R/elements_server.R
@@ -134,6 +134,26 @@ group_filter_element_server <- function(
           inline = T
         )
       })
+
+      shiny::observeEvent(input$selectAll, {
+          if(isFALSE(input$selectAll)){
+              shiny::updateCheckboxGroupInput(
+                  session,
+                  "group_choices",
+                  choices =  group_choices(),
+                  selected = NULL,
+                  inline = T
+              )
+          }else{
+              shiny::updateCheckboxGroupInput(
+                  session,
+                  "group_choices",
+                  choices =  group_choices(),
+                  selected = group_choices(),
+                  inline = T
+              )
+          }
+      })
 
       update_reactive <- shiny::reactive({
         shiny::req(input$parent_group_choice, input$group_choices)

diff --git a/R/elements_ui.R b/R/elements_ui.R
@@ -22,7 +22,8 @@ group_filter_element_ui <- function(id){
     ns <- shiny::NS(id)
     shiny::tagList(
         shiny::uiOutput(ns("select_ui")),
-        shiny::uiOutput(ns("checkbox_ui"))
+        shiny::uiOutput(ns("checkbox_ui")),
+        shiny::checkboxInput(ns('selectAll'), 'Select/Deselect All')
     )
 }