ShinyOAuthExample

Example of authenticating with Synapse from a Shiny application using the OAuth / Open ID Connect protocol

library(synapser)
library(rjson)
synLogin()
# customize your client name
client_name<-'Shiny OAuth Demo'
client<-list(client_name=client_name, redirect_uris=list('http://127.0.0.1:8100'))
client<-synRestPOST('/oauth2/client', toJSON(client), 'https://repo-prod.prod.sagebase.org/auth/v1')
client_id_and_secret<-synRestPOST(paste0('/oauth2/client/secret/',client$client_id), '', 'https://repo-prod.prod.sagebase.org/auth/v1')

Now create a text file called config in this format:

client_id: xxxxx
client_secret: xxxxx

Finally, run shiny-oauth-r.