R PickerGroup-модуль множественного выбора

Question

Я пытаюсь найти способ нарезать набор данных в R блестящий для дальнейшей обработки этого выбора.

До сих пор я всегда работал с обычными селекторами и ползунками и использовал функцию updateXYZ для генерации значений для выбора для следующего селектора.

Недавно я наткнулся на pickerGroup-module . Этот модуль позволяет фильтровать набор данных по объектам, делает все это в одном модуле и позволяет выполнять фильтрацию в любом направлении (у меня нет заранее заданного маршрута фильтрации). Под фильтрацией в любом направлении я имею в виду, например, фильтрацию по типу, подтипу, подтипу. Но также подтип, тип, подтип, если это то, как конкретный пользователь хочет фильтровать.

Есть только одна вещь, которую я не могу исправить в модуле pickerGroup, - это позволить ему выбирать несколько значений для каждой функции. Из коробки он выбирает только отдельные значения. Может ли кто-нибудь указать мне правильное направление, чтобы модуль pickerGroup разрешил использование нескольких значений для каждого объекта?

Answer 1

В пакете также есть модуль "Selectize Group" Блестящие виджеты , в этом вы можете выбрать несколько значений, попробуйте:

library(shiny)
library(shinyWidgets)

data("mpg", package = "ggplot2")

ui <- fluidPage(
  fluidRow(
    column(
      width = 10, offset = 1,
      tags$h3("Filter data with selectize group"),
      panel(
        selectizeGroupUI(
          id = "my-filters",
          params = list(
            manufacturer = list(inputId = "manufacturer", title = "Manufacturer:"),
            model = list(inputId = "model", title = "Model:"),
            trans = list(inputId = "trans", title = "Trans:"),
            class = list(inputId = "class", title = "Class:")
          )
        ), status = "primary"
      ),
      dataTableOutput(outputId = "table")
    )
  )
)

server <- function(input, output, session) {
  res_mod <- callModule(
    module = selectizeGroupServer,
    id = "my-filters",
    data = mpg,
    vars = c("manufacturer", "model", "trans", "class")
  )
  output$table <- renderDataTable(res_mod())
}

shinyApp(ui, server)