# NOT RUN {
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab