library(flexdashboard)
library(googleAuthR)
library(shiny)
library(googleID)

user_info <- reactive({

  req(auth())

  with_shiny(get_user_info,
             shiny_access_token = auth())

})

Column {data-width=650}

Chart A

## creates an output
renderUI({

  req(user_info())

  h1("Hello ", user_info()$displayName)

})

Column {data-width=350}

Chart B

gar_auth_jsUI("auth_demo", login_text = "Click Me")
auth <- callModule(gar_auth_js, "auth_demo")

Chart C




yinscapital/googleAuthR-reference documentation built on May 3, 2019, 4:31 p.m.