R Under development (unstable) (2024-03-06 r86056 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> source("incl/start.R")
> 
> assert_attributes <- function(globals) {
+   attrs <- attributes(globals)
+   names <- names(attrs)
+   stopifnot(
+     length(attrs) >= 2L,
+     "class" %in% names,
+     "where" %in% names,
+     ## 'where' and 'class' should be the last two (reproducibility)
+     names[length(names) - 1L] == "where",
+     names[length(names)     ] == "class",
+     inherits(globals, "Globals")
+   )
+   invisible(TRUE)
+ }
> 
> a <- 1
> b <- 2
> 
> message("*** Globals() ...")
*** Globals() ...
> 
> globals0 <- globalsByName(c("a", "rnorm"))
> 
> globals <- globals0
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == c("a", "rnorm")),
+   all(names(globals) == names(where))
+ )
> message("*** Globals() - names ...")
*** Globals() - names ...
> 
> globals <- globals0
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0))),
+   all(names(globals) == names(where))
+ )
> 
> names(globals)[1] <- "A"
> str(globals)
List of 2
 $ A    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ A    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == c("A", names(globals0)[-1])),
+   all(names(globals) == names(where))
+ )
> 
> message("*** Globals() - names ... DONE")
*** Globals() - names ... DONE
> 
> message("*** Globals() - subsetting ...")
*** Globals() - subsetting ...
> 
> globals <- globals0[1]
> str(globals)
List of 1
 $ a: num 1
 - attr(*, "where")=List of 1
  ..$ a:<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(globals) == c("a")),
+   all(names(globals) == names(where))
+ )
> 
> globals <- globals0[2]
> str(globals)
List of 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 1
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(globals) == c("rnorm")),
+   all(names(globals) == names(where))
+ )
> 
> globals <- globals0[2:1]
> str(globals)
List of 2
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ a    : num 1
 - attr(*, "where")=List of 2
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ a    :<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == c("rnorm", "a")),
+   all(names(globals) == names(where))
+ )
> 
> ## rev() works automatically thanks to `[`() :)
> globals <- rev(globals0)
> str(globals)
List of 2
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ a    : num 1
 - attr(*, "where")=List of 2
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ a    :<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == rev(names(globals0))),
+   all(names(globals) == names(where)),
+   identical(rev(globals), globals0)
+ )
> 
> message("*** Globals() - subsetting ... DONE")
*** Globals() - subsetting ... DONE
> 
> 
> message("*** Globals() - subsetted assignment ...")
*** Globals() - subsetted assignment ...
> 
> message("1.")
1.
> globals <- globals0
> globals$a <- globals0["a"]
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == names(globals0)),
+   all(names(globals) == names(where)),
+   identical(globals, globals0)
+ )
> 
> message("2.")
2.
> globals <- globals0
> globals[["a"]] <- globals0["a"]
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == names(globals0)),
+   all(names(globals) == names(where)),
+   identical(globals, globals0)
+ )
> 
> message("3.")
3.
> globals <- globals0
> globals$b <- globals0["a"]
> str(globals)
List of 3
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 - attr(*, "where")=List of 3
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 3L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0), "b")),
+   all(names(globals) == names(where)),
+   identical(globals$b, globals0$a)
+ )
> 
> message("4.")
4.
> globals <- globals0
> globals[["b"]] <- globals0["a"]
> str(globals)
List of 3
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 - attr(*, "where")=List of 3
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 3L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0), "b")),
+   all(names(globals) == names(where)),
+   identical(globals$b, globals0$a)
+ )
> 
> message("5.")
5.
> globals <- globals0
> globals["b"] <- globals0["a"]
> str(globals)
List of 3
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 - attr(*, "where")=List of 3
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_GlobalEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 3L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0), "b")),
+   all(names(globals) == names(where)),
+   identical(globals$b, globals0$a)
+ )
> 
> message("6.")
6.
> globals <- globals0
> globals["b"] <- list(globals0[["a"]])
> str(globals)
List of 3
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 - attr(*, "where")=List of 3
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 3L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0), "b")),
+   all(names(globals) == names(where)),
+   identical(globals$b, globals0$a)
+ )
> 
> message("7.")
7.
> globals <- globals0
> globals$a <- NULL
> str(globals)
List of 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 1
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(globals) == names(globals0)[-1]),
+   all(names(globals) == names(where)),
+   is.null(globals$a)
+ )
> 
> message("8.")
8.
> globals <- globals0
> globals$a <- 1:2
> str(globals)
List of 2
 $ a    : int [1:2] 1 2
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_EmptyEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == names(globals0)),
+   all(names(globals) == names(where)),
+   identical(globals$a, 1:2)
+ )
> 
> message("9.")
9.
> globals <- globals0
> globals[c("b", "a")] <- list(1:3, 42)
> str(globals)
List of 3
 $ a    : num 42
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : int [1:3] 1 2 3
 - attr(*, "where")=List of 3
  ..$ a    :<environment: R_EmptyEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 3L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals0), "b")),
+   all(names(globals) == names(where)),
+   identical(globals$b, 1:3),
+   identical(globals$a, 42)
+ )
> 
> message("10.")
10.
> globals <- Globals()
> globals["empty"] <- list(NULL)
> str(globals)
List of 1
 $ empty: NULL
 - attr(*, "where")=List of 1
  ..$ empty:<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(globals) == "empty"),
+   is.null(globals[["empty"]])
+ )
> 
> 
> message("*** Globals() - subsetted assignment ... DONE")
*** Globals() - subsetted assignment ... DONE
> 
> 
> message("*** Globals() - combining ...")
*** Globals() - combining ...
> 
> globals_a <- globals0[1:2]
> globals_b <- globals0[1:2]
> globals <- c(globals_a, globals_b)
> str(globals)
List of 4
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 4
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 4L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals_a), names(globals_b))),
+   all(names(globals) == names(where))
+ )
> 
> globals_a <- globals0[1:2]
> globals_b <- list(b = 1, c = letters)
> globals <- c(globals_a, globals_b)
> str(globals)
List of 4
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 $ c    : chr [1:26] "a" "b" "c" "d" ...
 - attr(*, "where")=List of 4
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_EmptyEnv> 
  ..$ c    :<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 4L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals_a), names(globals_b))),
+   all(names(globals) == names(where))
+ )
> 
> globals_a <- globals0[1:2]
> globals_b <- list()
> globals <- c(globals_a, globals_b)
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 2L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals_a), names(globals_b))),
+   all(names(globals) == names(where))
+ )
> 
> globals_a <- globals0[1:2]
> globals <- c(globals_a, b = 1, c = letters)
> str(globals)
List of 4
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ b    : num 1
 $ c    : chr [1:26] "a" "b" "c" "d" ...
 - attr(*, "where")=List of 4
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ b    :<environment: R_EmptyEnv> 
  ..$ c    :<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 4L,
+   length(where) == length(globals),
+   all(names(globals) == c(names(globals_a), "b", "c")),
+   all(names(globals) == names(where))
+ )
> 
> 
> globals <- Globals()
> globals_1 <- c(globals, fcn = median)
> str(globals_1)
List of 1
 $ fcn:function (x, na.rm = FALSE, ...)  
 - attr(*, "where")=List of 1
  ..$ fcn:<environment: namespace:stats> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> 
> globals_2 <- globals
> globals_2$fcn <- median
> str(globals_2)
List of 1
 $ fcn:function (x, na.rm = FALSE, ...)  
 - attr(*, "where")=List of 1
  ..$ fcn:<environment: namespace:stats> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> 
> stopifnot(identical(globals_2, globals_1))
> 
> 
> message("*** Globals() - combining ... DONE")
*** Globals() - combining ... DONE
> 
> 
> message("*** Globals() - unique ...")
*** Globals() - unique ...
> 
> globals <- globals0[c(1:2, 1:2, 1:2)]
> str(globals)
List of 6
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 6
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 6L,
+   length(where) == length(globals),
+   all(names(globals) == rep(names(globals0), times = 3L)),
+   all(names(globals) == names(where))
+ )
> 
> globals <- unique(globals)
> str(globals)
List of 2
 $ a    : num 1
 $ rnorm:function (n, mean = 0, sd = 1)  
 - attr(*, "where")=List of 2
  ..$ a    :<environment: R_GlobalEnv> 
  ..$ rnorm:<environment: package:stats> 
  .. ..- attr(*, "name")= chr "package:stats"
  .. ..- attr(*, "path")= chr "D:/RCompile/recent/R/library/stats"
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == length(globals0),
+   length(where) == length(globals),
+   all(names(globals) == names(globals0)),
+   all(names(globals) == names(where))
+ )
> 
> message("*** Globals() - unique ... DONE")
*** Globals() - unique ... DONE
> 
> 
> message("*** Globals() - coercion ...")
*** Globals() - coercion ...
> 
> globals <- as.Globals(globals0)
> stopifnot(
+   assert_attributes(globals),
+   identical(globals, globals0)
+ )
> 
> 
> globals <- as.Globals(unclass(globals0))
> stopifnot(
+   assert_attributes(globals),
+   identical(globals, globals0)
+ )
> 
> globals_t <- unclass(globals0)
> attr(globals_t, "where") <- NULL
> globals <- as.Globals(globals_t)
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == length(globals0),
+   names(globals) == names(globals0)
+ )
> 
> message("*** Globals() - coercion ... DONE")
*** Globals() - coercion ... DONE
> 
> 
> message("*** Globals() - empty ...")
*** Globals() - empty ...
> 
> globals <- Globals()
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 0L
+ )
> 
> globals <- Globals(list())
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 0L
+ )
> 
> globals <- as.Globals(list())
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 0L
+ )
> 
> message("*** Globals() - empty ... DONE")
*** Globals() - empty ... DONE
> 
> 
> message("*** Globals() - NULL ...")
*** Globals() - NULL ...
> ## https://github.com/HenrikBengtsson/globals/issues/79
> 
> denv <- getOption("globals.environment_of.default", emptyenv())
> 
> globals <- as.Globals(list(a = NULL))
> str(globals)
List of 1
 $ a: NULL
 - attr(*, "where")=List of 1
  ..$ a:<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(where) == names(globals)),
+   identical(names(globals), c("a")),
+   is.null(globals[["a"]]),
+   identical(where[["a"]], denv)
+ )
> 
> globals <- c(Globals(), list(a = NULL))
> str(globals)
List of 1
 $ a: NULL
 - attr(*, "where")=List of 1
  ..$ a:<environment: R_EmptyEnv> 
 - attr(*, "class")= chr [1:2] "Globals" "list"
> where <- attr(globals, "where")
> stopifnot(
+   assert_attributes(globals),
+   length(globals) == 1L,
+   length(where) == length(globals),
+   all(names(where) == names(globals)),
+   identical(names(globals), c("a")),
+   is.null(globals[["a"]]),
+   identical(where[["a"]], denv)
+ )
> 
> message("*** Globals() - NULL ... DONE")
*** Globals() - NULL ... DONE
> 
> 
> message("*** Globals() - exceptions ...")
*** Globals() - exceptions ...
> 
> res <- tryCatch({ Globals(NULL) }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> res <- tryCatch({ Globals(list(1, 2)) }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> res <- tryCatch({ Globals(list(a = 1, 2)) }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> ## Assigning more than one element
> globals <- globals0
> res <- tryCatch({ globals$a <- globals0[2:1] }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> ## Appending unnamed objects
> res <- tryCatch({ c(globals0, 2) }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> message("*** Globals() - exceptions ... DONE")
*** Globals() - exceptions ... DONE
> 
> message("*** Globals() ... DONE")
*** Globals() ... DONE
> 
> source("incl/end.R")
> 
> proc.time()
   user  system elapsed 
   0.25    0.07    0.31