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"

cpsievert

---
title: "Flexdashboard theming demo"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: 
      version: 4
    social: menu
    source_code: embed

cpsievert

---
title: "Thematic demo"
output: 
  html_document
---

```{r setup, include=FALSE}
library(bootstraplib)
bs_theme_base_colors(bg = "black", fg = "white")
bs_theme_accent_colors(primary = "salmon")

cpsievert

It appears plotly.js 1.50.0 introduced the following error in phantomjs 2.1.1:

$ phantomjs --version
2.1.1
$ phantomjs plot.js

This browser lacks typed array (Uint8Array) support which is required by `buffer` v5.x. Use `buffer` v4.x if you require old browser support.

cpsievert

---
title: "Untitled"
output: html_document
---

```{sass, engine.opts = list(sass_fun = bootstraplib::bootstrap_sass)}
body 
  background-color: $primary; 
```

cpsievert

---
title: "Untitled"
output: 
  html_document:
    highlight: tango
---

```{r}
library(sass)
bg_black <- list(

cpsievert

name: "site"
output:
  html_document:
    theme: sketchy
    bootstrap_version: 4
    theme_variables:
      primary: pink
      font-size-base: 1.5rem
navbar:
  title: "My Website"

cpsievert

library(shiny)

mtcars$.key <- row.names(mtcars)

ui <- fluidPage(
  plotlyOutput("scatter"),
  plotlyOutput("bars")
)

server <- function(input, output, session) {

cpsievert