## ----setup, include = FALSE---------------------------------------------------
source("shots.R")

## ----install, eval = FALSE----------------------------------------------------
# install.packages("shiny.element")
# # or the development version
# remotes::install_github("kaipingyang/shiny.element")

## ----quick, eval = FALSE, shot = TRUE, shot_js = "document.querySelector('#save_container button').click()", shot_wait = 1.5----
# library(shiny)
# library(shiny.element)
# 
# ui <- el_page(
#   el_input("name", label = "Name", placeholder = "Your name", width = "300px"),
#   el_rate("score", label = "Score", value = 3),
#   el_button("save", "Save", type = "primary"),
#   tags$div(style = "height: 12px"),
#   el_alert("hint", title = "Nothing saved yet", type = "info", closable = FALSE)
# )
# 
# server <- function(input, output, session) {
#   observeEvent(input$save, {
#     update_el_alert(
#       id = "hint",
#       type = "success",
#       title = paste0("Saved ", input$name, " (", input$score, "/5)")
#     )
#   })
# }
# 
# shinyApp(ui, server)

## ----bslib, eval = FALSE------------------------------------------------------
# theme <- el_theme(primary = "#7c3aed")
# ui <- bslib::page_sidebar(
#   theme = theme,
#   use_element(theme = theme),
#   sidebar = bslib::sidebar(el_select("metric", choices = c("Mean", "Median"))),
#   el_table(data = head(iris))
# )

## ----rw, eval = FALSE---------------------------------------------------------
# server <- function(input, output, session) {
#   output$chosen <- renderText(input$city) # read
#   observeEvent(input$reset, update_el_select(id = "city", selected = "Beijing"))
#   observeEvent(input$clear, call_el(id = "orders", method = "clearSelection"))
#   observeEvent(input$orders_row_click, el_message(message = "Row clicked"))
# }