## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----eval = FALSE-------------------------------------------------------------
# library(shiny)
# library(shinyreact)
# library(shinyglass)
# 
# ui <- glass_page_react(
#   theme = glass_theme(preset = "auto", scene = "tahoe"),
#   title = "Liquid Glass"
# )
# 
# server <- function(input, output, session) {
#   output$dist <- renderPlot({
#     pal <- glass_plot_colors(input = input)
#     hist(faithful$waiting, col = pal$fill, border = NA)
#   }, bg = "transparent")
# }
# 
# shinyApp(ui, server)