#' A Class which represents a role object (exists in guilds only)
#' @export
#'
#' @slot id role id
#' @slot name role name
#' @slot color integer representation of hexadecimal color code
#' @slot hoist if this role is pinned in the user listing
#' @slot position position of this role
#' @slot permissions permissions bit set
#' @slot managed whether this role is managed by an integration
#' @slot mentionable whether this role is mentionable
#' @slot guild_id The guild this role belongs to
Role <- function(data, guild) {
value <- list(
id = data$id,
name = data$name,
color = data$color,
hoist = data$hoist,
position = data$position,
managed = data$managed,
mentionable = data$mentionable,
permissions = data$permissions,
guild_id = guild$id
)
attr(value, "class") <- "Role"
value
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.