## Only run this example in interactive R sessions
if (interactive()) {
library(shiny)
shinyApp(
ui = bootstrapPage(
dataTableOutput('table')
),
server = function(input, output) {
output$table <- renderDataTable(iris)
}
)
}
Run the code above in your browser using DataLab