# print error message, and return FALSE
errorMessage <- function(cont, silent){
if(!silent){
cat(cont$code, ' ')
cat(cont$reason, '\n')
lapply(cont$messages, cat, '\n')
}
return(FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.