# NOT RUN {
if(interactive()) {
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(fluidRow(column(12, DTOutput('tbl')))),
server = function(input, output) {
output$tbl = render_table_data(iris)
}
)
}
# }
Run the code above in your browser using DataLab