Nothing
readURL <- function(URL, n=-1L) {
tries <- 0L
msg <- character()
while (tries < 3L) {
URLdata <- tryCatch(readLines(URL, n), error=identity)
if (!inherits(URLdata, "error"))
break
tries <- tries + 1L
}
if (tries == 3L)
stop("failed to get URL after 3 tries:",
"\n url: ", URL,
"\n error: ", conditionMessage(URLdata))
URLdata
}
mygetURL <- function(URL) {
tries <- 0L
msg <- character()
while (tries < 3L) {
URLdata <- tryCatch(getURL(URL, dirlistonly = TRUE), error=identity)
if (!inherits(URLdata, "error"))
break
tries <- tries + 1L
}
if (tries == 3L)
stop("failed to get URL after 3 tries:",
"\n url: ", URL,
"\n error: ", conditionMessage(URLdata))
URLdata
}
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.