examples/shiny-server-matrix-widget-1.R

In dreamRs/grillade: Grid System for the Web

# Matrix of htmlwidgets ---------------------------------------

library(shiny)
library(apexcharter)
library(grillade)
data("economics", package = "ggplot2")

ui <- fluidPage(
  tags$h2("Htmlwidgets matrix example with grillade"),
  grilladeOutput("charts")
)

server <- function(input, output, session) {

  make_chart <- function(data, variable) {
    apex(
      data = data,
      mapping = aes(x = date, y = !!rlang::sym(variable)),
      type = "line"
    )
  }

  output$charts <- renderGrillade({
    chart1 <- make_chart(economics, "pce")
    chart2 <- make_chart(economics, "psavert")
    chart3 <- make_chart(economics, "uempmed")
    grillade(chart1, chart2, chart3)
  })

}

if (interactive())
  shinyApp(ui, server)