R/utils.R

In lionel-/coercer: Experimental package for binary dispatch and variadic coercions

is_empty_env <- function(env) {
  is_reference(env, empty_env())
}

vec_coerce_bare <- function(x, type) {
  # Unexported wrapper around Rf_coerceVector()
  coerce <- env_get(ns_env("rlang"), "vec_coerce")
  coerce(x, type)
}