Merge pull request #83 from chainsawriot/fix82

fix #82
gesistsa · Nov 17, 2022 · b706139 · b706139
2 parents 9769f3f + e9f97ec
commit b706139
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/R/auth.R b/R/auth.R
@@ -282,21 +282,20 @@ check_token_rtoot <- function(token = NULL) {
         selection <- 2L
       }
     }
-
-    if (isTRUE(selection == 1L)) {
-      token <- auth_setup()
-    } else if (isTRUE(selection == 2L)) {
-      stop("No token found. Please run auth_setup() to authenticate.")
-    }
   } else if (!is_auth_rtoot(token)) {
     if (interactive()) {
       selection <- utils::menu(
         c("yes", "no"),
         title = "Your token is invalid. Do you want to authenticate now?"
-      )
+        )
     } else {
       selection <- 2L
     }
   }
+  if (isTRUE(selection == 1L)) {
+    token <- auth_setup()
+  } else if (isTRUE(selection == 2L)) {
+    stop("No token found. Please run auth_setup() to authenticate.")
+  }
   invisible(token)
 }