Splitter

Create a layout with panels that can be resized with splitter component

metroSplitter(panel1, panel2, vertical = FALSE, minSize = 100, gutterSize = 4)

Arguments

panel1	Left panel. Wrap in tagList. This can be a nested metroSplitter.
panel2	Right panel. Wrap in tagList. This can be a nested metroSplitter.
vertical	Vertical split. FALSE by default.
minSize	Minimum panel size. 100px by default.
gutterSize	Minimum gutter size (separator). 4 px by default.

Note

vertical does not work yet.

Examples

if (interactive()) {
 library(shiny)
 library(shinyMetroUi)

 shiny::shinyApp(
  ui = metroPage(
    metroSplitter(
      vertical = FALSE,
      gutterSize = 10,
      panel1 = tagList(
        sliderInput(
          "obs",
          "Number of observations:",
          min = 0,
          max = 1000,
          value = 500
        ),
        plotOutput("distPlot")
      ),
      panel2 = tagList(
        sliderInput(
          "obs2",
          "Number of observations:",
          min = 0,
          max = 1000,
          value = 500
        ),
        plotOutput("distPlot2")
      )
    )
  ),
  server = function(input, output) {
    output$distPlot <- renderPlot({
      hist(rnorm(input$obs))
    })
    output$distPlot2 <- renderPlot({
      hist(rnorm(input$obs2))
    })
  }
 )
}