Merge pull request #608 from Sage-Bionetworks/develop-fix-certificati…

…on-failure More robustly check if a user is certified
Sage-Bionetworks · Aug 2, 2024 · e607c6c · e607c6c
2 parents 3ff9f67 + 3be5aac
commit e607c6c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/synapse_rest_api.R b/R/synapse_rest_api.R
@@ -38,7 +38,10 @@ synapse_is_certified <- function(url="https://repo-prod.prod.sagebase.org/repo/v
   ownerid <- user_profile[["ownerId"]]
   url_req <- file.path(url, ownerid, endpoint)
   req <- httr::GET(url_req)
-  httr::content(req)[["passed"]]
+  resp <- httr::content(req)
+  if ("certified" %in% names(resp)) {
+    return(resp[["certified"]])
+  } else return(FALSE)
 
 }
 

diff --git a/functions/synapse_rest_api.R b/functions/synapse_rest_api.R
@@ -38,7 +38,10 @@ synapse_is_certified <- function(url="https://repo-prod.prod.sagebase.org/repo/v
   ownerid <- user_profile[["ownerId"]]
   url_req <- file.path(url, ownerid, endpoint)
   req <- httr::GET(url_req)
-  httr::content(req)[["passed"]]
+  resp <- httr::content(req)
+  if ("certified" %in% names(resp)) {
+    return(resp[["certified"]])
+  } else return(FALSE)
 
 }