shiny.semantic (version 0.4.0)

grid_template: Define a template of a CSS grid

Description

Define a template of a CSS grid

Usage

grid_template(
  default = list(areas = rbind(c("main_area")), rows_height = c("100%"), cols_width =
    c("100%")),
  mobile = list(areas = rbind(c("main_area")), rows_height = c("100%"), cols_width =
    c("100%"))
)

Arguments

default

Template for desktop: list(areas = [data.frame of character], rows_height = [vector of character], cols_width = [vector of character])

mobile

Template for mobile: list(areas = [data.frame of character], rows_height = [vector of character], cols_width = [vector of character])

Value

list(template = [character], area_names = [vector of character])

template - contains template that can be formatted with glue::glue() function

area_names - contain all unique area names used in grid definition

Examples

# NOT RUN {
myGrid <- grid_template(default = list(
  areas = rbind(
    c("header", "header", "header"),
    c("menu",   "main",   "right1"),
    c("menu",   "main",   "right2")
  ),
  rows_height = c("50px", "auto", "100px"),
  cols_width = c("100px", "2fr", "1fr")
))
if (interactive()) display_grid(myGrid)
subGrid <- grid_template(default = list(
  areas = rbind(
    c("top_left", "top_right"),
    c("bottom_left", "bottom_right")
  ),
  rows_height = c("50%", "50%"),
  cols_width = c("50%", "50%")
))

if (interactive()) display_grid(subGrid)
# }