Is it possible to show all selectizegroupUI options but grey out the unavailable selections based off of what it already selected?
For example, when selecting a Manufacturer, show all other options but grey out if unavailable (and vice versa).
Could one combined the solution below with selectizegroupUI?
Grey out a selectInput choice after clicking a checkboxInput – R Shiny
data("mpg", package = "ggplot2")
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
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:")
),
inline = FALSE
)
),
mainPanel(
DT::dataTableOutput(outputId = "table")
)
)
)
server <- function(input, output) {
res_mod <- callModule(
module = selectizeGroupServer,
id = "my-filters",
data = mpg,
vars = c("manufacturer", "model", "trans", "class"),
inline = FALSE # switch to TRUE to see the issue
)
output$table <- DT::renderDataTable(res_mod())
}
shinyApp(ui,server)