library(flexdashboard) library(googleAuthR) library(shiny) library(googleID) user_info <- reactive({ req(auth()) with_shiny(get_user_info, shiny_access_token = auth()) })
## creates an output renderUI({ req(user_info()) h1("Hello ", user_info()$displayName) })
gar_auth_jsUI("auth_demo", login_text = "Click Me") auth <- callModule(gar_auth_js, "auth_demo")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.