R/model_emoji.r

In TheOnlyArtz/Pirate: A Discord API Wrapper

#' A Class which represents a guild emoji object
#' @export
#'
#' @slot id emoji id
#' @slot name emoji name
#' @slot roles roles this emoji is whitelisted to
#' @slot user user that created this emoji
#' @slot require_colons whether this emoji must be wrapped in colons
#' @slot managed whether this emoji is managed
#' @slot animated whether this emoji is animated
#' @slot guild_id the guild_id this emoji belongs to
Emoji <- function(data, guild) {
  value <- list(
    id = data$id,
    name = data$name,
    roles = fastmap(),
    users = data$users, # TODO fetch out of cache
    require_colons = data$require_colons,
    managed = data$managed,
    animated = data$animated,
    guild_id = guild$id
  )

  if (length(data$roles) >= 1) {
    lapply(data$roles, function(id) value$roles$set(id, guild$roles$get(id)))
  }

  attr(value, "class") <- "Emoji"
  value
}