auth0_logout_url(config_file = NULL, redirect_js = TRUE)

# simple UI with action button
# AFTER auth0 0.1.2

library(shiny)
library(auth0)

ui <- fluidPage(logoutButton())
server <- function(input, output, session) {}
shinyAppAuth0(ui, server, config_file)

# simple UI with action button
# BEFORE auth0 0.1.2

library(shiny)
library(auth0)
library(shinyjs)

# note that you must include shinyjs::useShinyjs() for this to work
ui <- fluidPage(shinyjs::useShinyjs(), actionButton("logout_auth0", "Logout"))

# server with one observer that logouts
server <- function(input, output, session) {
  observeEvent(input$logout_auth0, {
    # javascript code redirecting to correct url
    js <- auth0_logout_url()
    shinyjs::runjs(js)
  })
}

shinyAuth0App(ui, server, config_file = config_file)