inst/examples/QDataGrid.R

library(shiny.mui)
library(shiny)
library(shiny.quartz)
data(mtcars)

if (interactive()) {
    shinyApp(
        ui = div(
            reactOutput("data")
        ),
        server = function(input, output) {
            output$data <- renderReact({
                QDataGrid(tidyiddr::influenza_burden(), minColWidth = 100)
            })
        }
    )
}
QuartzSoftwareLLC/shiny.quartz documentation built on Aug. 29, 2023, 9:18 a.m.