shinygaGetToken: Returns the authentication Token

In MarkEdmondson1234/shinyga: Easier Google Authentication in Shiny

Description

Once a user browses to ShinyGetTokenURL and is redirected back with request shinygaGetToken takes that code and returns a token needed for Google APIs Uses the same client.id and client.secret as ShinyGetTokenURL

Usage

shinygaGetToken(code, client.id = CLIENT_ID, client.secret = CLIENT_SECRET,
  redirect.uri = CLIENT_URL)

Arguments

code	The code passed from AuthCode().
client.id	The client ID taken from the Google API Console.
client.secret	The client secret taken from the Google API Console.
redirect.uri	The URL of where your Shiny application sits, that will read state parameter.

Value

The token from Google that authenticates future API calls.

See Also

Shortcut using doAuthMacro.

Other authentication functions: authReturnCode; createCode; doAuthMacro; shinygaGetTokenURL

Examples

## Not run: 
securityCode <- createCode()
shinyServer(function(input, output, session)){

  AuthCode <- reactive({

      authReturnCode(session, securityCode)

  })

  output$AuthGAURL <- renderUI({

       a("Click Here to Authorise Your Google Analytics Access",
          href=ShinyGetTokenURL(securityCode)
          )
       })

  AccessToken <- reactive({
      validate(
        need(AuthCode(), "Authenticate To See")
      )

      access_token <- ShinyGetToken(code = AuthCode())

      token <- access_token$access_token

    })
}

## End(Not run)

MarkEdmondson1234/shinyga documentation built on May 7, 2019, 3:34 p.m.