# extract -----------------------------------------------------------------
#' @export
`[.enum_enum` <- function(x, ...) {
enum_extract(x, ...)
}
#' @export
enum_extract <- function(x, ...) {
proxy <- enum_proxy(x)
unname(proxy[vctrs::vec_c(...)])
}
# extract2 ----------------------------------------------------------------
#' @export
`$.enum_enum` <- function(x, ...) {
enum_extract2(x, ...)
}
#' @export
`[[.enum_enum` <- function(x, ...) {
enum_extract2(x, ...)
}
enum_extract2 <- function(x, ...) {
proxy <- enum_proxy(x)
unname(proxy[[...]])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.