inst/examples/Grid.R

In muiMaterial: 'Material UI' for 'shiny' Apps and 'Quarto'

library(muiMaterial)

ui_Grid <- muiMaterialPage(
  CssBaseline(),
  Grid(
    container = TRUE,
    spacing = 2,
    Grid(
      size = list(xs = 12, md = 8),
      muiMaterial::Box(
        bgcolor = "primary.main",
        sx = list(textAlign = 'center'),
        "Box 1"
      )
    ),
    Grid(
      size = list(xs = 12, md = 4),
      muiMaterial::Box(
        bgcolor = "secondary.main",
        sx = list(textAlign = 'center'),
        "Box 2"
      )
    )
  )
)

server_Grid <- function(input, output, session) {}

if (interactive()) {
  shinyApp(ui = ui_Grid, server = server_Grid)
}