Don’t forget to configure your environment variables.
Also, set the port, running something like
options(shiny.port = 8080)
.
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)