createCode: Creates a random character code

In MarkEdmondson1234/shinyga: Easier Google Authentication in Shiny

Description

Creates a random character code

Usage

createCode(seed = NULL, num = 20)

Arguments

seed	The seed for random code.
num	Number of characters in code.

Value

A random string of digits and characters.

See Also

Shortcut using doAuthMacro.

Other authentication functions: authReturnCode; doAuthMacro; shinygaGetTokenURL; shinygaGetToken

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=shinygaGetTokenURL(securityCode)
          )
       })

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

      access_token <- shinygaGetToken(code = AuthCode())

      token <- access_token$access_token

    })
}

## End(Not run)

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