#' Check for Internet
#'
#' Used to skip tests and examples for this package when offline.
#'
#' @return TRUE if the internet is available, false otherwise
#' @export
#'
#' @examples
#' has_internet()
#'
has_internet <- function() {
!is.null(curl::nslookup("r-project.org", error = FALSE))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.