if (FALSE) {
library(shiny)
shinyApp(
ui = fluidPage(
fluidRow(
#leave some spacing
br(),
column(width = 1),
tableHTML_output("mytable"))
),
server = function(input, output) {
output$mytable <- render_tableHTML(
tableHTML(mtcars)
)}
)
}
Run the code above in your browser using DataLab