R/extract.R

In shunsambongi/enum: Create enumerated values

# 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[[...]])
}