Merge pull request #611 from Sage-Bionetworks/dev-reduce-oauth-claims

Dev reduce oauth claims
Sage-Bionetworks · Sep 11, 2024 · d1d5bf1 · d1d5bf1
2 parents 9c6588d + 0c56491
commit d1d5bf1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 17 deletions.
diff --git 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))

diff --git a/modules/DTable.R b/modules/DTable.R
@@ -57,7 +57,7 @@ DTableServer <- function(id, data, escape = TRUE,
         df <- df %>% formatStyle(1:ncol(data), border = "1px solid #ddd")
       }
 
-      output$table <- renderDT(df, future = TRUE)
+      output$table <- renderDT(df, future = TRUE, server = TRUE)
     }
   )
 }