Reduce connection timeout to 5s

r-lib · Sep 7, 2024 · a7f9e32 · a7f9e32
1 parent 5087aea
commit a7f9e32
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/R/gh_token.R b/R/gh_token.R
@@ -53,6 +53,20 @@ gh_token <- function(api_url = NULL) {
   gh_pat(token$password %||% "")
 }
 
+#' @export
+#' @rdname gh_token
+gh_token_exists <- function(api_url = NULL) {
+  api_url <- api_url %||% default_api_url()
+  tryCatch(
+    {
+      token <- gitcreds::gitcreds_get(get_hosturl(api_url))
+      gh_pat(token$password)
+      TRUE
+    } ,
+    error = function(e) FALSE
+  )
+}
+
 gh_auth <- function(token) {
   if (isTRUE(token != "")) {
     if (any(grepl("\\W", token))) {