The goal of {auth0}
is to implement an
authentication scheme to Shiny using OAuth Apps through the freemium
service Auth0.
To create your authenticated shiny app, you need to follow the steps
below. The full decription can be found in the README
of
the package site.
http://localhost:8080
to the “Allowed Callback
URLs”, “Allowed Web Origins” and “Allowed Logout URLs”.
http://localhost:8080
to another
port.fooBar
) in “Allowed Web Origins”.Now, let’s go to R!
_auth0.yml
fileauth0::use_auth0()
:You can set the directory where this file will be created using the
path=
parameter. See ?auth0::use_auth0
for
details. Your _auth0.yml
file should be like this:
name: myApp
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")
Run usethis::edit_r_environ()
and add these three
environment variables:
AUTH0_USER=johndoe
AUTH0_KEY=5wugt0W...
AUTH0_SECRET=rcaJ0p8...
There’s how you identify each of them (see the image
below):AUTH0_USER
is your username, which can be found on
the top corner of the site. AUTH0_KEY
is your Client ID,
which can be copied from inside the app page. AUTH0_SECRET
is your Client Secret, which can be copied from the app page.
You can find more information about environment variables here.
You can also fill these information directly in the
_auth0.yml
file (see below). If you do so, don’t forget to
save the _auth0.yml
file after editing it.
Write a simple shiny app in a app.R
file, like this:
library(shiny)
ui <- fluidPage(
fluidRow(plotOutput("plot"))
)
server <- function(input, output, session) {
output$plot <- renderPlot({
plot(1:10)
})
}
# note that here we're using a different version of shinyApp!
auth0::shinyAppAuth0(ui, server)
Note: If you want to use a different path to the
auth0
configuration file, you can either pass it to
shinyAppAuth0()
or set the auth0_config_file
option by running
options(auth0_config_file = "path/to/file")
.