library(shiny)
library(auth0)
ui <- function(request) {
fluidPage(
textInput("txt", "Enter text"),
checkboxInput("caps", "Capitalize"),
verbatimTextOutput("out"),
bookmarkButton()
)
}
server <- function(input, output, session) {
output$out <- renderText({
if (input$caps)
toupper(input$txt)
else
input$txt
})
}
enableBookmarking(store = "server")
shinyAppAuth0(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.