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

## -----------------------------------------------------------------------------
library(shinyglass)

legacy <- glass_theme(
  intensity = 0.45,
  refraction = FALSE,
  morph = FALSE,
  press = FALSE,
  minimize_tabs = FALSE,
  icon_style = "color",
  tokens = list(
    diffusion = "1",
    edge = "rgba(0, 0, 0, 0.22)"
  )
)

## ----eval = FALSE-------------------------------------------------------------
# update_glass_theme(
#   session,
#   intensity = 0.45,
#   refraction = FALSE,
#   morph = FALSE,
#   press = FALSE,
#   minimize_tabs = FALSE,
#   icon_style = "color"
# )

## ----eval = FALSE-------------------------------------------------------------
# # 0.4.0
# glass_theme(material = "clear")
# 
# # 0.5.0, same paint, no warning
# glass_theme(intensity = 0.12)

## ----eval = FALSE-------------------------------------------------------------
# library(shinychat)
# 
# page_chat(
#   "Notes",
#   id = "chat",
#   theme = glass_theme(scene = "dusk"),
#   placeholder = "Message"
# )

## ----eval = FALSE-------------------------------------------------------------
# shiny::runApp(system.file("examples/shinychat-glass", package = "shinyglass"))