if (interactive()) {
ui <- resizableSplitUI("splitModule",
sidebarpane = shiny::div("This is the sidebar"),
maincontenttop = shiny::div("This is the maincontenttop"),
maincontentbottom = shiny::div("This is the maincontentbottom")
)
server <- function(input, output, session) { }
shinyApp(ui, server)
}
Run the code above in your browser using DataLab