R/events_guildupdate.r

In TheOnlyArtz/Pirate: A Discord API Wrapper

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)
}