R/environment_of.R

In globals: Identify Global Objects in R Expressions

# A safe version of base::environment() that returns emptyenv()
# if NULL is passed, instead of the calling environment.
# Related to https://github.com/HenrikBengtsson/globals/issues/79
environment_of <- function(obj) {
  if (is.null(obj)) return(emptyenv())
  e <- environment(obj)
  if (is.null(e)) return(emptyenv())
  e
}