error.message<-function(message){
dialog <- gtkMessageDialogNew(NULL, c("modal"), "error", "ok", message)
dialog$run()
dialog$destroy()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.