# NOT RUN {
## Only run this example in interactive R sessions
if (interactive()) {
shinyApp(
ui = fluidPage(
verbatimTextOutput("selected"),
selectableTableOutput("tbl")
),
server = function(input, output) {
output$selected <- renderPrint({input$tbl_selected})
output$tbl <- renderTable(mtcars, rownames = TRUE)
}
)
}
# }
Run the code above in your browser using DataCamp Workspace