Nothing
ping_internet <- function() {
w <- url('https://httpbin.org/get')
res <- tryCatch(suppressWarnings(readLines(w)), error = function(e) e)
on.exit(close(w))
!inherits(res, "error")
}
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.