Nothing
library(shiny)
library(DT)
shinyServer(function(input, output, session) {
mtcars2 = data.frame(
name = rownames(mtcars), mtcars[, c('mpg', 'hp')],
stringsAsFactors = FALSE
)
mtcars2$am = factor(mtcars$am, labels = c('automatic', 'manual'))
mtcars2$date = Sys.Date() + seq_len(nrow(mtcars))
output$tbl = DT::renderDataTable(
mtcars2, filter = 'top', server = TRUE, rownames = FALSE,
options = list(autoWidth = TRUE)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.