if (FALSE) { # interactive()
# Uses OIDC_CLIENT_ID and OIDC_CLIENT_SECRET env vars by default
token <- sync_token()
# Or supply credentials directly
token <- sync_token(
client_id = "YOUR_CLIENT_ID.apps.googleusercontent.com",
client_secret = "YOUR_CLIENT_SECRET"
)
# Use with sync_fetch
doc <- sync_fetch(server$url, "myDocId", token = token, tls = tls)
}
Run the code above in your browser using DataLab