Protect pandoc_releases() call on CRAN to avoid API rate limite error…

… in checks This follows an email from CRAN about an error in checks with gh API rate limit.
cderv · Aug 15, 2023 · 15031cf · 15031cf
1 parent 900f263
commit 15031cf
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/R/pandoc-browse.R b/R/pandoc-browse.R
@@ -18,7 +18,7 @@ url_view <- function(...) {
 #' @references <https://github.com/jgm/pandoc/releases>
 #'
 #' @return Open the web page in browser in interactive mode or print the url
-#' @examplesIf rlang::is_interactive()
+#' @examplesIf rlang::is_interactive() && rlang::is_installed("gh") && attr(curlGetHeaders("https://github.com"), "status") == "200"
 #' pandoc_browse_release()
 #' pandoc_browse_release("2.14")
 #' @export

diff --git a/man/pandoc_browse_release.Rd b/man/pandoc_browse_release.Rd
diff --git a/tests/testthat/test-pandoc-browse.R b/tests/testthat/test-pandoc-browse.R
@@ -4,6 +4,8 @@ test_that("url_view", {
 
 test_that("pandoc_browse_release()", {
   skip_if_not_installed("gh")
+  skip_if_offline()
+  skip_on_cran()
   # trick to cache releases if not yet to avoid message
   suppressMessages(pandoc_releases())
   expect_snapshot(pandoc_browse_release())