R/compat-purrr.R

In shunsambongi/enum: Create enumerated values

map_mold <- function(.x, .f, .mold, ...) {
  out <- vapply(.x, rlang::as_function(.f), .mold, ..., USE.NAMES = FALSE)
  names(out) <- names(.x)
  out
}

map_lgl <- function(.x, .f, ...) {
  map_mold(.x, .f, logical(1), ...)
}

map_int <- function(.x, .f, ...) {
  map_mold(.x, .f, integer(1), ...)
}