examples/example_1.R

In pedrocoutinhosilva/shiny.grid: CSS grid implementation for shiny

library(shiny)
library(shiny.grid)

ui <- gridPage(
    title = "Grid page example",
    rows = "100px 1fr 1fr",
    areas = c(
      "header header header",
      "sidebar main main",
      "sidebar main main"
    ),

    gridPanel(
      class = "header",
      areas = c("... title ..."),
      div(
        class = "title",
        titlePanel("Old Faithful Geyser Data")
      )
    ),
    div(
      class = "sidebar",
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    gridPanel(
      class = "main",
      plotOutput("distPlot", height = "100%")
    )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
      test = 'darkgray'

      x    <- faithful[, 2]
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      hist(x, breaks = bins, col = test, border = 'white')
  })
}

shinyApp(ui = ui, server = server)