oauth_app_from_json() does not read web based client JSON

[MarkEdmondson1234]

The oauth_app_from_json() works great on client JSON for "Other" type clients, but for "Web" type clients it fails.

The latter is needed for Shiny based auth as it includes the redirect URIs (which will be great to include later on instead of option(googleAuthR.redirect))

The format is largely the same, except it starts with a "web" object and not "installed" e.g.

{"web":{"client_id":"XXX.apps.googleusercontent.com",
"project_id":"blah","auth_uri":"https://accounts.google.com/o/oauth2/auth",
"token_uri":"https://accounts.google.com/o/oauth2/token",
"auth_provider_x509_cert_url":"https://www.googleapis.com/oauth2/v1/certs",
"client_secret":"3nVXXXXXa4",
"redirect_uris":["http://localhost"],
"javascript_origins":["https://www.example.com","http://localhost:1221"]}}

Not a pressing issue until Shiny auth is in but a note for future

[yogat3ch]

Hi Jenny and Mark,
Hope you all are well!
I'm encountering the same issue here.
It seems like a simple fix that will handle multiple app types is just a numerical, name agnostic index on line 24
IE
info <- jsonlite::fromJSON(path, simplifyVector = FALSE)[["installed"]]
to
info <- jsonlite::fromJSON(path, simplifyVector = FALSE)[[1]]