R/global_definitions.r

In mastropi/envnames: Track User-Defined Environment Names

### Environment with "global" definitions
# This is a hidden environment (because it starts with dot)
.pkgenv <- new.env(parent=emptyenv())
# Strings used by variable R.version or version as architecture value for 32-bit and 64-bit architectures 
.pkgenv$ARCH_32BIT = "i386"
.pkgenv$ARCH_64BIT = "x86_64"

# Variable that stores the current state of the warning option, since this is changed
# at different places of the package (e.g. obj_find() to avoid the warning message
# "restarting interrupted promise evaluation")
# More info on this warning at:
# http://stackoverflow.com/questions/20596902/r-avoiding-restarting-interrupted-promise-evaluation-warning
.option_warn = options("warn")$warn

# Define an environment to test the search for environments that are defined in a package
# Note that we cannot use the hidden environment just defined for this function because
# that environment is hidden and therefore it is not seen!
#' Environment used in testing the package
testenv <- new.env()
with(testenv, env1 <- new.env(parent=emptyenv()))
testenv$env1$env22 <- new.env()