# warning message box function
log.to.msgbox <- function(r, resource.name, lang) {
if (r$status == 'ident' | r$status == 'info') {
return()
} else if (r$status == 'warning' | r$status == 'error') {
icon_msg <- r$status
msgBox <- tk_messageBox(title = r$status,
message = paste0(r$status,": ", resource.name, r$msg[[lang]]),
icon = icon_msg,
type = "ok")
} else {
stop("invalid status")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.