Nothing
# return the expression if it works, otherwise
# return empty data.frame() if it likely a 304 error
# or fail if it is likely not a 304 error
maybe_304 <- function(expr) {
tryCatch({
expr
},
error = function(e) {
msg <- conditionMessage(e)
if (any(grepl("304", e)) | any(grepl("503", e))) {
data.frame()
} else {
stop(msg)
}
})
}
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.