library(shiny)
library(bslib)
pkgload::load_all()
ui <- fluidPage(
theme = bs_theme_esquisse(),
html_dependency_esquisse(),
tags$h2("Select aes"),
select_aes_ui("myid"),
verbatimTextOutput("result")
)
server <- function(input, output, session) {
res_r <- select_aes_server(
id = "myid",
data_r = reactive(apexcharter::temperatures)
)
output$result <- renderPrint(str(res_r()))
}
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.