ui-server-bookmark • auth0

Source: https://github.com/curso-r/auth0/blob/master/inst/ui-server-bookmark

Don’t forget to configure your environment variables.

Also, set the port, running something like options(shiny.port = 8080).

ui.R

library(shiny)
library(auth0)

# # run this before running the app:
# options(shiny.port = 8080)
# shiny::enableBookmarking(store = "server")

# this example is the same as bookmark, but using bookmarking
ui <- function(request) {
  fluidPage(
    textInput("txt", "Enter text"),
    checkboxInput("caps", "Capitalize"),
    verbatimTextOutput("out"),
    bookmarkButton(),
    logoutButton()
  )
}

auth0_ui(ui)

server.R

library(shiny)
library(auth0)

# # run this before running the app:
# options(shiny.port = 8080)
# shiny::enableBookmarking(store = "server")

server <- function(input, output, session) {
  output$out <- renderText({
    if (input$caps)
      toupper(input$txt)
    else
      input$txt
  })
}

auth0_server(server)

_auth0.yml

name: myApp
remote_url: ''
auth0_config:
  api_url: !expr paste0('https://', Sys.getenv("AUTH0_USER"), '.auth0.com')
  credentials:
    key: !expr Sys.getenv("AUTH0_KEY")
    secret: !expr Sys.getenv("AUTH0_SECRET")