Provide option to disable internet connections

NEWS.md

@@ -1,5 +1,8 @@
 # pkgdown 1.1.0.9000
 
+* Users with limited internet connectivity can explicitly disable pkgdown CRAN checks
+  by setting `options(pkgdown.internet = FALSE)` prior to running `build_site()`.
+
 * `build_reference_index()`: Selectors that do not match topics now generate a warning.
   If none of the specified selectors have a match, no topics are selected (#728).
 

R/build-home-index.R

@@ -101,6 +101,10 @@ sidebar_section <- function(heading, bullets, class = make_slug(heading)) {
 }
 
 repo_link <- memoise(function(pkg) {
+  if (!has_internet()) {
+    return(NULL)
+  }
+
   cran_url <- paste0("https://cloud.r-project.org/package=", pkg)
 
   if (!httr::http_error(cran_url)) {

R/build-home.R

@@ -81,6 +81,10 @@
 #' This section is automatically populated if the first paragraph of the
 #' homepage consists solely of status badges as linked images.
 #'
+#' @section Internet:
+#' Users with limited internet connectivity can disable CRAN checks by setting
+#' `options(pkgdown.internet = FALSE)`.
+#'
 #' @inheritParams build_articles
 #' @export
 build_home <- function(pkg = ".",

R/build-news.R

@@ -209,6 +209,10 @@ is_dev <- function(version) {
 }
 
 pkg_timeline <- function(package) {
+  if (!has_internet()) {
+    return(NULL)
+  }
+
   url <- paste0("http://crandb.r-pkg.org/", package, "/all")
 
   resp <- httr::GET(url)

R/utils.r

@@ -112,3 +112,7 @@ print.print_yaml <- function(x, ...) {
 skip_if_no_pandoc <- function() {
   testthat::skip_if_not(rmarkdown::pandoc_available("1.12.3"))
 }
+
+has_internet <- function() {
+  return(getOption("pkgdown.internet", default = TRUE))
+}

tests/testthat/test-utils.R

@@ -19,3 +19,9 @@ test_that("find_reexport_source_from_imports", {
     "R6"
   )
 })
+
+test_that("pkgdown.internet can be set and read", {
+  options(pkgdown.internet = FALSE)
+  expect_false(has_internet())
+})
+