Find common environment in list of lazy objects.

Share:

Description

If no common environment is found, will return baseenv().

Usage

1
common_env(dots)

Arguments

dots

A list of lazy objects

Examples

1
2
3
4
5
common_env(lazy_dots(a, b, c))

f <- function(x) ~x
common_env(list(f(1)))
common_env(list(f(1), f(2)))