accordion-sidebar.R

library(bslib)
library(bsicons)
library(crosstalk)
library(plotly)

dat <- SharedData$new(dplyr::sample_n(diamonds, 1000))

accordion_filters <- accordion(
  accordion_panel(
    "Dropdowns", icon = bs_icon("menu-app"),
    filter_select("cut", "Cut", dat, ~cut),
    filter_select("color", "Color", dat, ~color),
    filter_select("clarity", "Clarity", dat, ~clarity)
  ),
  accordion_panel(
    "Numerical", icon = bs_icon("sliders"),
    filter_slider("depth", "Depth", dat, ~depth, ticks = FALSE),
    filter_slider("table", "Table", dat, ~table, ticks = FALSE)
  )
)

page_fillable(
  card(
    card_header("Groups of diamond filters"),
    layout_sidebar(
      sidebar = sidebar(bg = "white", accordion_filters),
      plot_ly(dat) |> add_histogram(x = ~price)
    )
  )
)