inst/example-auth-shiny-calcite.R

In arcgisutils: R-ArcGIS Bridge Utility Functions

library(shiny)
library(calcite) # requires calcite 0.1.2
library(shinyOAuth)
library(arcgisutils)

# create the shiny AGOL login provider
client <- auth_shiny()

ui <- calcite_shell(
  # Include the shinyOAuth module
  use_shinyOAuth(),
  uiOutput("navigation")
)

server <- function(input, output, session) {
  auth <- shinyOAuth::oauth_module_server(
    "auth",
    client,
    auto_redirect = FALSE
  )

  # Render entire navigation based on authentication status
  output$navigation <- renderUI({
    calcite_navigation(
      slot = "header",
      calcite_menu(
        slot = "content-end",
        calcite_menu_item(
          text = "Drivers",
          `icon-start` = "license"
        ),
        calcite_menu_item(
          text = "Routes",
          `icon-start` = "road-sign"
        ),
        calcite_menu_item(
          text = "Forecast",
          `icon-start` = "snow"
        )
      ),
      # Conditionally render user slot
      if (auth$authenticated) {
        user_info <- auth$token@userinfo
        calcite_navigation_user(
          slot = "user",
          username = user_info$user$username,
          `full-name` = user_info$user$fullName,
          `user-id` = user_info$user$id
        )
      } else {
        calcite_button(
          id = "login_btn",
          slot = "user",
          "Login"
        )
      }
    )
  })

  # Trigger login when button is clicked
  observeEvent(input$login_btn$clicked, {
    auth$request_login()
  })
}

runApp(
  shinyApp(ui, server),
  port = 8100,
  launch.browser = FALSE
)