# NOT RUN {
## Only run this example in interactive R sessions
if (interactive()) {
shinyApp(
ui = fluidPage(
sortableTabsetPanel(
id = "tabs",
tabPanel(title = "A", "AAA"),
tabPanel(title = "B", "BBB"),
tabPanel(title = "C", "CCC")
),
verbatimTextOutput("order")
),
server = function(input, output) {
output$order <- renderPrint({input$tabs_order})
}
)
}
# }
Run the code above in your browser using DataLab