library(shiny)
ui <- fluidPage(
# *Input() functions
# *Output() functions
# layout functions
)
server <- function(input, output) {
# render*() functions (save results to ouput$)
# observeEvent(), reactive(), eventReactive() functions
}
shinyApp(server = server, ui = ui)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.