Support Google Sign In API for websites

[MarkEdmondson1234]

This looks like a more modern and alternative way than JS auth

https://developers.google.com/identity/sign-in/web/sign-in

Lets users stay signed in etc. See demo app here
https://github.com/dkulp2/Google-Sign-In

[MarkEdmondson1234]

Server to server auth https://developers.google.com/identity/sign-in/web/server-side-flow

[MarkEdmondson1234]

This is adapted from @dkulp2's app, turned into a Shiny module. To replicate the app:

library(shiny)
library(googleAuthR)

options(googleAuthR.webapp.client_id = "1080525199262-qecndq7frddi66vr35brgckc1md5rgcl.apps.googleusercontent.com")

ui <- fluidPage(
    
    titlePanel("Sample Google Sign-In"),
    
    sidebarLayout(
      sidebarPanel(
        googleSignInUI("demo")
      ),
      
      mainPanel(
        with(tags, dl(dt("Name"), dd(textOutput("g_name")),
                      dt("Email"), dd(textOutput("g_email")),
                      dt("Image"), dd(uiOutput("g_image")) ))
      )
    )
  )

server <- function(input, output, session) {
  
  sign_ins <- callModule(googleSignIn, "demo")
  
  output$g_name = renderText({ sign_ins()$name })
  output$g_email = renderText({ sign_ins()$email })
  output$g_image = renderUI({ img(src=sign_ins()$image) })
  
}

# Run the application 
shinyApp(ui = ui, server = server)