check response for certified attribute, otherwise return false

Sage-Bionetworks · Jul 30, 2024 · 3be5aac · 3be5aac
1 parent 51297f2
commit 3be5aac
Show file tree

Hide file tree

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