From 947ca4287d56c2ef01ff1585d051a8d24a7a5421 Mon Sep 17 00:00:00 2001 From: afwillia Date: Mon, 19 Aug 2024 14:23:32 -0700 Subject: [PATCH] Reduce the OAuth claims to only userid --- global.R | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/global.R b/global.R index 2e17e23d..62fa4e01 100644 --- a/global.R +++ b/global.R @@ -106,22 +106,7 @@ app <- oauth_app("shinysynapse", # These are the user info details ('claims') requested from Synapse: claims <- list( - family_name = NULL, - given_name = NULL, - email = NULL, - email_verified = NULL, - userid = NULL, - orcid = NULL, - is_certified = NULL, - is_validated = NULL, - validated_given_name = NULL, - validated_family_name = NULL, - validated_location = NULL, - validated_email = NULL, - validated_company = NULL, - validated_at = NULL, - validated_orcid = NULL, - company = NULL + userid = NULL ) claimsParam <- toJSON(list(id_token = claims, userinfo = claims))