has_internet <- function() {
z <- try(suppressWarnings(readLines('https://www.google.com', n = 1)),
silent = TRUE)
!inherits(z, "try-error")
}
skip_if_net_down <- function() {
if (has_internet()) {
return()
}
testthat::skip("no internet")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.