cpsievert

---
title: "Flexdashboard theming demo"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    theme: 
      bg: "#101010"
      fg: "#FDF7F7" 
      primary: "#ED79F9"
      base_font: !expr bslib::font_google("Prompt")

cpsievert

library(shiny)
library(DT)
library(plotly)

ui <- fluidPage(
  
  title = 'Select Table Rows',
  
  h1('A Client-side Table'),
  

cpsievert

# ------------------------------------------------------------------------
# Learn more about bslib::tooltip() and bslib::popover() at
# https://rstudio.github.io/bslib/articles/tooltips-popovers/index.html
# ------------------------------------------------------------------------

library(shiny)
library(bslib)
library(palmerpenguins)
library(ggplot2)

cpsievert

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"),

cpsievert

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(

cpsievert

[
    {
        "driver": "Bowser",
        "occupation": "Koopa",
        "vehicles": [
            {
                "model": "Wario Bike",
                "speed": 55,
                "weight": 25
            },

cpsievert

cpsievert

cpsievert

cpsievert