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(htmltools)
library(crosstalk)
library(plotly)
library(leaflet)

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

sidebar_diamonds <- layout_sidebar(

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

cpsievert

cpsievert

cpsievert

cpsievert

R version 4.0.3 (2020-10-10) -- "Bunny-Wunnies Freak Out"
Copyright (C) 2020 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.

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

---
title: "My Themed R Markdown Document" 
author: "Author: Your Name"
date: "Last update: `r format(Sys.time(), '%d %B, %Y')`" 
output:
  html_document:
    theme: 
      bg: "#101010" 
      fg: "#FDF7F7"
      primary: "#ED79F9"