inst/explorer/ui/render_ui_sidebar_checkbox_filtering.R

In kgjerde/corporaexplorer: A 'Shiny' App for Exploration of Text Collections

if (!is.null(UI_FILTERING_CHECKBOXES)) {

# Creating one UI element for each column with checkboxes -----------------

  list_of_filtering_columns_ui <- list()
  for (i in seq_along(UI_FILTERING_CHECKBOXES$column_names)) {
    list_of_filtering_columns_ui[[i]] <-
      conditionalPanel(
        condition = "input.subset_group == 'Yes'",

        div(
          shiny::checkboxGroupInput(
            inputId = paste0("type_", i),
            choices = UI_FILTERING_CHECKBOXES$values[[i]],
            selected = UI_FILTERING_CHECKBOXES$values[[i]],
            inline = TRUE,
            label = if (rlang::is_named(UI_FILTERING_CHECKBOXES$column_names[i])) {
              names(UI_FILTERING_CHECKBOXES$column_names[i])
            } else {
              UI_FILTERING_CHECKBOXES$column_names[i]
            }
          ),
          class = "filtering_checkboxes"
        )
      )
  }

# Rendering UI: -----------------------------------------------------------
## a button to reveal the checkboxes + UIs just generated -----------------

  output$checkbox_filtering_ui <- renderUI({
    shiny::tagList(
      shinyWidgets::checkboxGroupButtons(
        inputId = "subset_group",
        label = NULL,
        choices = list("More filtering options" = "Yes"),
        justified = TRUE,
        size = "xs",
        status = "group_ui",
        selected = NULL#input_arguments_derived$filter_corpus_button
      ),
      list_of_filtering_columns_ui
    )
  })
}