# NOT RUN {
if(interactive()) {
library(shiny)
library(DT)
shinyApp(ui = fluidPage(fluidRow(uiOutput("resumen"))),
server = function(input, output) {
output$resumen = renderUI(numerical_summary(iris, "Sepal.Width"))
})
}
# }
Run the code above in your browser using DataCamp Workspace