Nothing
is_error_response <- function(result) {
is.character(result) && any(grepl("^\\s*error\\s*:", result, ignore.case = TRUE))
}
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.