source("R/model_guild.r")
#' Event, emitted whenever a guild updates it's contents
#' @param data The updated guild object (partial)
#' @param client The client object
events.guild_update <- function(data, client) {
guild <- client$guilds$get(data$id)
if (is.null(guild)) return() # Don't keep on going if not cached
difference <- data[!(data %in% guild)]
diff_guild <- Guild(difference)
for (key in names(difference)) {
guild[[key]] <- diff_guild[[key]]
}
client$guilds$set(data$id, guild)
client$emitter$emit("GUILD_UPDATE", guild)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.