#' Event, emitted whenever a message is being deleted
#' @param data The event fields
#' @param client The client object
#' @examples
#'\dontrun{
#'client$emitter$on("MESSAGE_DELETE", function(channel, message) {
#' cat("Content of the deleted message:", message$content)
#'})
#'}
events.message_delete <- function(data, client) {
channel <- client$channels$get(data$channel_id)
if (is.null(channel)) return()
message <- channel$messages$get(data$id)
if (is.null(message)) return() # Already "deleted"
channel$messages$remove(data$id)
client$emitter$emit("MESSAGE_DELETE", channel, message)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.