Nothing
#' @title Helper function to test if a stable internet connection
#' can be established.
#' @description All retrieval functions need a stable
#' internet connection to work properly. This internal function pings
#' the google homepage and throws an error if it cannot be reached.
#' @author Hajk-Georg Drost
#' @noRd
connected.to.internet <- function() {
if (curl::curl_fetch_memory("www.google.com")$status_code == 200) {
return(TRUE)
} else {
message(
"It seems that you are not connected to the internet. A query to www.google.com was not successful. Could you please check?"
)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.