Create an UIkit sidebar layout

Create a sidebarLayout similar to the original sidebarLayout in shiny

UIkitSidebarLayout(sidebarPanel, mainPanel)

Arguments

sidebarPanel	Slots for the UIkitSidebar.
mainPanel	Slot for UIkitSidebarTrigger and the content of your app.

Examples

if(interactive()){
 library(shiny)

 shiny::shinyApp(
  ui = UIkitPage(
    title = "My UIkit application",
    UIkitSidebarLayout(
     mainPanel = UIkitGrid(
      plotOutput("plot"),
      UIkitSidebarTrigger(id = "mysidebar")
     ),
     sidebarPanel = UIkitSidebar(
      id = "mysidebar",
      tagList(
       h3("Test Sidebar"),
       "Lorem ipsum dolor sit amet, consectetur adipiscing 
       elit, sed do eiusmod tempor incididunt ut labore et 
       dolore magna aliqua. Ut enim ad minim veniam, quis 
       nostrud exercitation ullamco laboris nisi ut aliquip 
       ex ea commodo consequat.",
       sliderInput("obs", "Number of observations:",
        min = 0, max = 1000, value = 500
      )
     )
    )
   )
  ),
  server = function(input, output) {
   output$plot <- renderPlot({
    hist(rnorm(input$obs))
   })
  }
 )
}