examples/select-aes.R

In dreamRs/esquisse: Explore and Visualize Your Data Interactively

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)