R/methods.R

In shunsambongi/enum: Create enumerated values

# utils -------------------------------------------------------------------

.DollarNames.enum_enum <- function(x, pattern) {
  keys <- enum_keys(x)

  starts_with <- keys[startsWith(keys, pattern)]
  contains <- keys[grepl(pattern, keys, fixed = TRUE)]
  c(starts_with, contains)
}