card-sidebar.R

library(bslib)
library(htmltools)
library(crosstalk)
library(plotly)
library(leaflet)

# Create Diamonds view
dat <- SharedData$new(dplyr::sample_n(diamonds, 1000))

sidebar_diamonds <- layout_sidebar(
  sidebar = filter_select("cut", "Cut", dat, ~cut),
  plot_ly(dat) |> add_histogram(x = ~price)
)

# Create Earthquake view
squake <- SharedData$new(quakes)

sidebar_quakes <- layout_sidebar(
  class = "p-0",
  sidebar = sidebar(
    title = "Earthquakes off Fiji",
    bg = "#1E1E1E",
    class = "fw-bold font-monospace",
    position = "right",
    filter_slider("mag", "Magnitude", squake, ~mag, ticks = FALSE)
  ),
  leaflet(squake) |> addTiles() |> addCircleMarkers()
) |>
  tagAppendAttributes(style = css("--bs-card-border-color" = "#1E1E1E"))



page_fillable(
  card(
    full_screen = TRUE,
    card_header("Diamonds"),
    sidebar_diamonds
  ),
  card(
    full_screen = TRUE,
    card_header("Earthquakes"),
    sidebar_quakes
  )
)