R Under development (unstable) (2026-03-12 r89611 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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.

> ## This runs testme test script inst/testme/test-findGlobals,dfs.R
> ## Don't edit - it was autogenerated by inst/testme/deploy.R
> globals:::testme("findGlobals,dfs")
Test 'findGlobals,dfs' ...
Sourcing 9 prologue scripts ...
01/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/001.load.R'
02/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/005.globals.R'
03/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/010.record-state.R'
04/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/030.imports.R'
05/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/050.utils.R'
06/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/090.context.R'
07/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/090.options.R'
08/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/091.envvars.R'
09/09 prologue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_prologue/995.detrius-connections.R'
Sourcing 9 prologue scripts ... done
Running test script: 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/test-findGlobals,dfs.R'

> options(globals.debug = (.Platform[["OS.type"]] == 
+     "windows"))

> commaq <- globals:::commaq

> exprs <- list()

> truths <- list()

> append_expr <- function(expr, substitute = TRUE, truth = character(0)) {
+     if (substitute) 
+         expr <- substitute(expr)
+     truth <- so .... [TRUNCATED] 

> append_expr(42, truth = character(0))

> append_expr(a, truth = c("a"))

> append_expr(a <- 42, truth = c("<-", if (getRversion() < 
+     "4.0.0") c("a")))

> append_expr({
+     a + b
+ }, truth = c("{", "+", "a", "b"))

> append_expr({
+     a <- 42
+     a + b
+ }, truth = c("{", "<-", "+", "b", if (getRversion() < "4.0.0") "a"))

> append_expr({
+     c()
+ }, truth = c("{", "c"))

> append_expr({
+     c(1:3)
+ }, truth = c("{", "c", ":"))

> append_expr({
+     pi
+ }, truth = c("{", "pi"))

> append_expr({
+     base::pi
+ }, truth = c("{", "::"))

> append_expr({
+     base:::pi
+ }, truth = c("{", ":::"))

> append_expr(a$b, truth = c("a", "$"))

> append_expr(a$b(), truth = c("a", "$"))

> append_expr(a$b(2), truth = c("a", "$"))

> append_expr(a()$b, truth = c("a", "$"))

> append_expr(a(2)$b, truth = c("a", "$"))

> append_expr(a@b, truth = c("a", "@"))

> append_expr(a@b(), truth = c("a", "@"))

> append_expr(a@b(2), truth = c("a", "@"))

> append_expr(a()@b, truth = c("a", "@"))

> append_expr(a(2)@b, truth = c("a", "@"))

> append_expr(a[1], truth = c("a", "["))

> append_expr(a[NA], truth = c("a", "["))

> append_expr(a[NA], truth = c("a", "["))

> append_expr(a[Inf], truth = c("a", "["))

> append_expr(a[], truth = c("a", "["))

> append_expr(a[1, ], truth = c("a", "["))

> append_expr(a[, 1], truth = c("a", "["))

> append_expr(a[1] <- 0, truth = c("a", "[<-"))

> append_expr(a[b <- 1] <- 0, truth = c("a", "[<-", 
+     "<-", if (getRversion() < "4.0.0") c("b")))

> append_expr({
+     a[b <- 1] <- 0
+ }, truth = c("{", "a", "[<-", "<-", if (getRversion() < "4.0.0") c("b")))

> append_expr({
+     a$b <- 0
+ }, truth = c("{", "a", "$<-"))

> append_expr({
+     a@b <- 0
+ }, truth = c("{", "a", "@<-"))

> append_expr(names(a) <- "A", truth = c("a", "names<-"))

> append_expr({
+     a[1] = 0
+ }, truth = c("{", "a", "[<-"))

> append_expr({
+     a[b = 1] = 0
+ }, truth = c("{", "a", "[<-"))

> append_expr({
+     a$b = 0
+ }, truth = c("{", "a", "$<-"))

> append_expr({
+     names(a) = "A"
+ }, truth = c("{", "a", "names<-"))

> append_expr({
+     names(a)[1] = "A"
+ }, truth = c("{", "names<-", "a", "[<-", "names"))

> append_expr(x[is.na(x)] <- 0, truth = c("[<-", "is.na", 
+     "x"))

> append_expr({
+     x[is.na(x)] = 0
+ }, truth = c("{", "[<-", "is.na", "x"))

> append_expr(function(a) a, truth = character(0))

> append_expr(function(a) a + b, truth = c("+", "b"))

> append_expr(function(a, b) a + b, truth = c("+"))

> append_expr(function(a, b = 1) a + b, truth = c("+"))

> append_expr({
+     g <- function(a) a
+     g(a)
+ }, truth = c("{", "<-", "a", if (getRversion() < "4.0.0") "g"))

> append_expr({
+     x <- 1
+     y <- function(a) {
+         b <- 3
+         a + b + x
+     }
+     z <- y(2 * x)
+ }, truth = c("{", "<-", "+",  .... [TRUNCATED] 

> append_expr({
+     y <- function(a) a + x
+     x <- 1
+     z <- y(2 * x)
+ }, truth = c("{", "<-", "x", "+", "*", if (getRversion() < "4.0.0") c( .... [TRUNCATED] 

> append_expr({
+     lapply(1:3, function(i) {
+         G <- function(a, b, c) c(a, b, c)
+         G(a, b, c)
+     })
+ }, truth = c(":", "{", "<- ..." ... [TRUNCATED] 

> append_expr({
+     base::lapply(1:3, function(i) {
+         G <- function(a, b, c) c(a, b, c)
+         G(a, b, c)
+     })
+ }, truth = c("::", " ..." ... [TRUNCATED] 

> append_expr(~x, substitute = FALSE, truth = c("~", 
+     "x"))

> append_expr(. ~ x, substitute = FALSE, truth = c("~", 
+     ".", "x"))

> append_expr(y ~ x + 1, truth = c("~", "y", "+", "x"))

> env <- new.env(parent = emptyenv())

> append_expr(env, substitute = FALSE, truth = character(0))

> fcn <- function() a * x

> append_expr(fcn, substitute = FALSE, truth = c("*", 
+     "a", "x"))

> fcn <- function(a) a * x

> append_expr(fcn, substitute = FALSE, truth = c("*", 
+     "x"))

> fcn <- function(a, b = 1) a * x + b

> append_expr(fcn, substitute = FALSE, truth = c("*", 
+     "x", "+"))

> fcn <- function(...) NULL

> append_expr(fcn, substitute = FALSE, truth = character(0))

> fcn <- function(...) list(...)

> append_expr(fcn, substitute = FALSE, truth = c("list"))

> fcn <- function() list(...)

> append_expr(fcn, substitute = FALSE, truth = c("list", 
+     "..."))

> fcn <- function(a, ...) base::list(a = a, ...)

> append_expr(fcn, substitute = FALSE, truth = c("::"))

> fcn <- function(a, ...) c(a = a, ...)

> append_expr(fcn, substitute = FALSE, truth = c("c"))

> expr <- expression(x)

> append_expr(expr, substitute = FALSE, truth = c("x"))

> expr <- expression(x + y)

> append_expr(expr, substitute = FALSE, truth = c("+", 
+     "x", "y"))

> expr <- asS3(methods::getClass("S4")@prototype, complete = FALSE)

> append_expr(expr, substitute = FALSE, truth = character(0))

> con <- rawConnection(raw())

> append_expr(con, substitute = FALSE, truth = character(0))

> close(con)

> expr <- quote(for (x in NULL) NULL)

> append_expr(expr, substitute = FALSE, truth = c("for"))

> expr <- quote(for (x in NULL) x)

> append_expr(expr, substitute = FALSE, truth = c("for"))

> expr <- quote(base::names(x)[1] <- 0)

> append_expr(expr, substitute = FALSE, truth = c("::", 
+     "x", "[<-"))

> expr <- alist(x = a)

> append_expr(expr, substitute = FALSE, truth = c("a"))

> expr <- function(x = a) NULL

> append_expr(expr, substitute = FALSE, truth = c("a"))

> expr <- function(...) list(..1, ..2)

> append_expr(expr, substitute = FALSE, truth = c("list"))

> expr <- function() list(..1, ..2)

> append_expr(expr, substitute = FALSE, truth = c("list", 
+     "..1", "..2"))

> for (kk in seq_along(exprs)) {
+     message(sprintf("\n*** Expression #%d ***", kk))
+     expr <- exprs[[kk]]
+     truth <- truths[[kk]]
+     pr .... [TRUNCATED] 

*** Expression #1 ***
[1] 42
[08:09:53.020] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.027] | workaround 'codetools' bug #16

[08:09:53.028] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.029] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.031] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #2 ***
a
[08:09:53.032] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.033] | workaround 'codetools' bug #16
[08:09:53.033] | globals found: [1] 'a'
[08:09:53.034] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'a'
[08:09:53.034] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.035] | globals found: [1] 'a'
[08:09:53.036] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'a'

*** Expression #3 ***
a <- 42
[08:09:53.037] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.037] | workaround 'codetools' bug #16
[08:09:53.038] | globals found: [1] '<-'
[08:09:53.039] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] '<-'
[08:09:53.039] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.042] | globals found: [1] '<-'
[08:09:53.043] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] '<-'

*** Expression #4 ***
{
    a + b
}
[08:09:53.044] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.044] | workaround 'codetools' bug #16
[08:09:53.045] | globals found: [4] '{', '+', 'a', 'b'
[08:09:53.046] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '+', 'a', 'b', '{'
[08:09:53.046] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.050] | globals found: [4] '{', '+', 'a', 'b'
[08:09:53.050] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '+', 'a', 'b', '{'

*** Expression #5 ***
{
    a <- 42
    a + b
}
[08:09:53.051] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.052] | workaround 'codetools' bug #16
[08:09:53.053] | globals found: [4] '{', '<-', '+', 'b'
[08:09:53.054] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '+', '<-', 'b', '{'
[08:09:53.054] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.059] | globals found: [4] '{', '<-', '+', 'b'
[08:09:53.060] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '+', '<-', 'b', '{'

*** Expression #6 ***
{
    c()
}
[08:09:53.062] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.062] | workaround 'codetools' bug #16
[08:09:53.063] | globals found: [2] '{', 'c'
[08:09:53.064] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] 'c', '{'
[08:09:53.065] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.068] | globals found: [2] '{', 'c'
[08:09:53.069] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] 'c', '{'

*** Expression #7 ***
{
    c(1:3)
}
[08:09:53.070] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.070] | workaround 'codetools' bug #16
[08:09:53.072] | globals found: [3] '{', 'c', ':'
[08:09:53.073] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] ':', 'c', '{'
[08:09:53.074] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.078] | globals found: [3] '{', 'c', ':'
[08:09:53.079] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] ':', 'c', '{'

*** Expression #8 ***
{
    pi
}
[08:09:53.080] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.081] | workaround 'codetools' bug #16
[08:09:53.081] | globals found: [2] '{', 'pi'
[08:09:53.082] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] 'pi', '{'
[08:09:53.083] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.085] | globals found: [2] '{', 'pi'
[08:09:53.085] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] 'pi', '{'

*** Expression #9 ***
{
    base::pi
}
[08:09:53.086] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.087] | workaround 'codetools' bug #16
[08:09:53.088] | globals found: [2] '{', '::'
[08:09:53.088] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '::', '{'
[08:09:53.089] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.091] | globals found: [2] '{', '::'
[08:09:53.092] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '::', '{'

*** Expression #10 ***
{
    base:::pi
}
[08:09:53.093] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.093] | workaround 'codetools' bug #16
[08:09:53.094] | globals found: [2] '{', ':::'
[08:09:53.095] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] ':::', '{'
[08:09:53.095] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.097] | globals found: [2] '{', ':::'
[08:09:53.098] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] ':::', '{'

*** Expression #11 ***
a$b
[08:09:53.099] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.100] | workaround 'codetools' bug #16
[08:09:53.100] | globals found: [2] '$', 'a'
[08:09:53.101] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '$', 'a'
[08:09:53.102] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.104] | globals found: [2] '$', 'a'
[08:09:53.104] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '$', 'a'

*** Expression #12 ***
a$b()
[08:09:53.105] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.106] | workaround 'codetools' bug #16
[08:09:53.107] | globals found: [2] '$', 'a'
[08:09:53.107] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '$', 'a'
[08:09:53.108] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.110] | globals found: [2] '$', 'a'
[08:09:53.110] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '$', 'a'

*** Expression #13 ***
a$b(2)
[08:09:53.111] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.112] | workaround 'codetools' bug #16
[08:09:53.113] | globals found: [2] '$', 'a'
[08:09:53.113] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '$', 'a'
[08:09:53.114] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.118] | globals found: [2] '$', 'a'
[08:09:53.118] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '$', 'a'

*** Expression #14 ***
a()$b
[08:09:53.119] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.120] | workaround 'codetools' bug #16
[08:09:53.120] | globals found: [2] '$', 'a'
[08:09:53.121] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '$', 'a'
[08:09:53.122] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.124] | globals found: [2] '$', 'a'
[08:09:53.124] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '$', 'a'

*** Expression #15 ***
a(2)$b
[08:09:53.125] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.126] | workaround 'codetools' bug #16
[08:09:53.126] | globals found: [2] '$', 'a'
[08:09:53.127] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '$', 'a'
[08:09:53.128] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.131] | globals found: [2] '$', 'a'
[08:09:53.131] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '$', 'a'

*** Expression #16 ***
a@b
[08:09:53.132] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.133] | workaround 'codetools' bug #16
[08:09:53.133] | globals found: [2] '@', 'a'
[08:09:53.134] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '@', 'a'
[08:09:53.134] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.137] | globals found: [2] '@', 'a'
[08:09:53.137] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '@', 'a'

*** Expression #17 ***
a@b()
[08:09:53.138] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.139] | workaround 'codetools' bug #16
[08:09:53.139] | globals found: [2] '@', 'a'
[08:09:53.140] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '@', 'a'
[08:09:53.140] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.143] | globals found: [2] '@', 'a'
[08:09:53.143] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '@', 'a'

*** Expression #18 ***
a@b(2)
[08:09:53.144] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.145] | workaround 'codetools' bug #16
[08:09:53.145] | globals found: [2] '@', 'a'
[08:09:53.146] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '@', 'a'
[08:09:53.146] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.150] | globals found: [2] '@', 'a'
[08:09:53.150] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '@', 'a'

*** Expression #19 ***
a()@b
[08:09:53.151] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.152] | workaround 'codetools' bug #16
[08:09:53.152] | globals found: [2] '@', 'a'
[08:09:53.153] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '@', 'a'
[08:09:53.153] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.156] | globals found: [2] '@', 'a'
[08:09:53.156] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '@', 'a'

*** Expression #20 ***
a(2)@b
[08:09:53.157] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.158] | workaround 'codetools' bug #16
[08:09:53.158] | globals found: [2] '@', 'a'
[08:09:53.159] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '@', 'a'
[08:09:53.159] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.163] | globals found: [2] '@', 'a'
[08:09:53.164] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '@', 'a'

*** Expression #21 ***
a[1]
[08:09:53.165] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.165] | workaround 'codetools' bug #16
[08:09:53.166] | globals found: [2] '[', 'a'
[08:09:53.166] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.167] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.169] | globals found: [2] '[', 'a'
[08:09:53.170] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #22 ***
a[NA]
[08:09:53.171] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.171] | workaround 'codetools' bug #16
[08:09:53.172] | globals found: [2] '[', 'a'
[08:09:53.173] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.173] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.175] | globals found: [2] '[', 'a'
[08:09:53.176] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #23 ***
a[NA_character_]
[08:09:53.177] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.177] | workaround 'codetools' bug #16
[08:09:53.178] | globals found: [2] '[', 'a'
[08:09:53.179] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.179] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.181] | globals found: [2] '[', 'a'
[08:09:53.182] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #24 ***
a[Inf]
[08:09:53.183] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.183] | workaround 'codetools' bug #16
[08:09:53.184] | globals found: [2] '[', 'a'
[08:09:53.185] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.185] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.188] | globals found: [2] '[', 'a'
[08:09:53.188] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #25 ***
a[]
[08:09:53.189] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.190] | workaround 'codetools' bug #16
[08:09:53.190] | globals found: [2] '[', 'a'
[08:09:53.191] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.191] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.194] | globals found: [2] '[', 'a'
[08:09:53.194] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #26 ***
a[1, ]
[08:09:53.195] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.195] | workaround 'codetools' bug #16
[08:09:53.196] | globals found: [2] '[', 'a'
[08:09:53.197] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.197] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.200] | globals found: [2] '[', 'a'
[08:09:53.201] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #27 ***
a[, 1]
[08:09:53.201] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.202] | workaround 'codetools' bug #16
[08:09:53.203] | globals found: [2] '[', 'a'
[08:09:53.203] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '[', 'a'
[08:09:53.204] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.206] | globals found: [2] '[', 'a'
[08:09:53.207] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[', 'a'

*** Expression #28 ***
a[1] <- 0
[08:09:53.208] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.208] | workaround 'codetools' bug #16
[08:09:53.210] | globals found: [4] '<-', '[', 'a', '[<-'
[08:09:53.211] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '<-', '[', '[<-', 'a'
[08:09:53.212] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.215] | globals found: [2] '[<-', 'a'
[08:09:53.216] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '[<-', 'a'

*** Expression #29 ***
a[b <- 1] <- 0
[08:09:53.217] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.217] | workaround 'codetools' bug #16
[08:09:53.219] | globals found: [4] '<-', '[', 'a', '[<-'
[08:09:53.219] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '<-', '[', '[<-', 'a'
[08:09:53.220] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.225] | globals found: [3] '[<-', 'a', '<-'
[08:09:53.225] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '<-', '[<-', 'a'

*** Expression #30 ***
{
    a[b <- 1] <- 0
}
[08:09:53.226] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.227] | workaround 'codetools' bug #16
[08:09:53.228] | globals found: [5] '{', '<-', '[', 'a', '[<-'
[08:09:53.229] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '<-', '[', '[<-', 'a', '{'
[08:09:53.230] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.236] | globals found: [4] '{', '[<-', 'a', '<-'
[08:09:53.236] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '<-', '[<-', 'a', '{'

*** Expression #31 ***
{
    a$b <- 0
}
[08:09:53.237] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.238] | workaround 'codetools' bug #16
[08:09:53.239] | globals found: [5] '{', '<-', '$', 'a', '$<-'
[08:09:53.239] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '$', '$<-', '<-', 'a', '{'
[08:09:53.240] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.245] | globals found: [3] '{', '$<-', 'a'
[08:09:53.246] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '$<-', 'a', '{'

*** Expression #32 ***
{
    a@b <- 0
}
[08:09:53.247] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.247] | workaround 'codetools' bug #16
[08:09:53.249] | globals found: [5] '{', '<-', '@', 'a', '@<-'
[08:09:53.249] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '<-', '@', '@<-', 'a', '{'
[08:09:53.250] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.254] | globals found: [3] '{', '@<-', 'a'
[08:09:53.255] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '@<-', 'a', '{'

*** Expression #33 ***
names(a) <- "A"
[08:09:53.256] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.256] | workaround 'codetools' bug #16
[08:09:53.258] | globals found: [4] '<-', 'names', 'a', 'names<-'
[08:09:53.258] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '<-', 'a', 'names', 'names<-'
[08:09:53.259] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.262] | globals found: [2] 'names<-', 'a'
[08:09:53.262] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] 'a', 'names<-'

*** Expression #34 ***
{
    a[1] = 0
}
[08:09:53.263] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.264] | workaround 'codetools' bug #16
[08:09:53.265] | globals found: [5] '{', '=', '[', 'a', '[<-'
[08:09:53.266] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '=', '[', '[<-', 'a', '{'
[08:09:53.267] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.271] | globals found: [3] '{', '[<-', 'a'
[08:09:53.272] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '[<-', 'a', '{'

*** Expression #35 ***
{
    a[b = 1] = 0
}
[08:09:53.273] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.273] | workaround 'codetools' bug #16
[08:09:53.274] | globals found: [5] '{', '=', '[', 'a', '[<-'
[08:09:53.275] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '=', '[', '[<-', 'a', '{'
[08:09:53.276] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.281] | globals found: [3] '{', '[<-', 'a'
[08:09:53.282] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '[<-', 'a', '{'

*** Expression #36 ***
{
    a$b = 0
}
[08:09:53.282] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.283] | workaround 'codetools' bug #16
[08:09:53.284] | globals found: [5] '{', '=', '$', 'a', '$<-'
[08:09:53.285] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '$', '$<-', '=', 'a', '{'
[08:09:53.285] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.290] | globals found: [3] '{', '$<-', 'a'
[08:09:53.291] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '$<-', 'a', '{'

*** Expression #37 ***
{
    names(a) = "A"
}
[08:09:53.291] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.292] | workaround 'codetools' bug #16
[08:09:53.293] | globals found: [5] '{', '=', 'names', 'a', 'names<-'
[08:09:53.294] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '=', 'a', 'names', 'names<-', '{'
[08:09:53.295] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.299] | globals found: [3] '{', 'names<-', 'a'
[08:09:53.299] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] 'a', 'names<-', '{'

*** Expression #38 ***
{
    names(a)[1] = "A"
}
[08:09:53.300] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.301] | workaround 'codetools' bug #16
[08:09:53.302] | globals found: [7] '{', '=', '[', ..., 'names<-'
[08:09:53.303] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=7] '=', '[', '[<-', 'a', 'names', 'names<-', '{'
[08:09:53.304] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.309] | globals found: [5] '{', '[<-', 'names<-', 'names', 'a'
[08:09:53.309] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=5] '[<-', 'a', 'names', 'names<-', '{'

*** Expression #39 ***
x[is.na(x)] <- 0
[08:09:53.310] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.311] | workaround 'codetools' bug #16
[08:09:53.312] | globals found: [5] '<-', '[', 'x', 'is.na', '[<-'
[08:09:53.313] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '<-', '[', '[<-', 'is.na', 'x'
[08:09:53.313] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.319] | globals found: [3] '[<-', 'x', 'is.na'
[08:09:53.319] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '[<-', 'is.na', 'x'

*** Expression #40 ***
{
    x[is.na(x)] = 0
}
[08:09:53.320] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.321] | workaround 'codetools' bug #16
[08:09:53.322] | globals found: [6] '{', '=', '[', ..., '[<-'
[08:09:53.323] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=6] '=', '[', '[<-', 'is.na', 'x', '{'
[08:09:53.323] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.329] | globals found: [4] '{', '[<-', 'x', 'is.na'
[08:09:53.329] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '[<-', 'is.na', 'x', '{'

*** Expression #41 ***
function(a) a
[08:09:53.330] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.331] | workaround 'codetools' bug #16

[08:09:53.332] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.333] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.336] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #42 ***
function(a) a + b
[08:09:53.337] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.338] | workaround 'codetools' bug #16
[08:09:53.339] | globals found: [2] '+', 'b'
[08:09:53.339] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '+', 'b'
[08:09:53.340] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.344] | globals found: [2] '+', 'b'
[08:09:53.345] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '+', 'b'

*** Expression #43 ***
function(a, b) a + b
[08:09:53.346] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.346] | workaround 'codetools' bug #16
[08:09:53.347] | globals found: [1] '+'
[08:09:53.348] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] '+'
[08:09:53.349] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.354] | globals found: [1] '+'
[08:09:53.355] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] '+'

*** Expression #44 ***
function(a, b = 1) a + b
[08:09:53.356] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.356] | workaround 'codetools' bug #16
[08:09:53.357] | globals found: [1] '+'
[08:09:53.358] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] '+'
[08:09:53.359] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.364] | globals found: [1] '+'
[08:09:53.364] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] '+'

*** Expression #45 ***
{
    g <- function(a) a
    g(a)
}
[08:09:53.365] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.365] | workaround 'codetools' bug #16
[08:09:53.367] | globals found: [3] '{', '<-', 'a'
[08:09:53.368] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '<-', 'a', '{'
[08:09:53.369] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.375] | globals found: [3] '{', '<-', 'a'
[08:09:53.375] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '<-', 'a', '{'

*** Expression #46 ***
{
    x <- 1
    y <- function(a) {
        b <- 3
        a + b + x
    }
    z <- y(2 * x)
}
[08:09:53.376] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.377] | workaround 'codetools' bug #16
[08:09:53.381] | globals found: [4] '{', '<-', '+', '*'
[08:09:53.381] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '*', '+', '<-', '{'
[08:09:53.382] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.398] | globals found: [4] '{', '<-', '+', '*'
[08:09:53.399] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '*', '+', '<-', '{'

*** Expression #47 ***
{
    y <- function(a) a + x
    x <- 1
    z <- y(2 * x)
}
[08:09:53.400] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.400] | workaround 'codetools' bug #16
[08:09:53.403] | globals found: [5] '{', '<-', '+', 'x', '*'
[08:09:53.404] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '*', '+', '<-', 'x', '{'
[08:09:53.404] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.417] | globals found: [5] '{', '<-', '+', 'x', '*'
[08:09:53.418] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=5] '*', '+', '<-', 'x', '{'

*** Expression #48 ***
{
    lapply(1:3, function(i) {
        G <- function(a, b, c) c(a, b, c)
        G(a, b, c)
    })
}
[08:09:53.418] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.419] | workaround 'codetools' bug #16
[08:09:53.422] | globals found: [4] '{', 'lapply', ':', '<-'
[08:09:53.422] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] ':', '<-', 'lapply', '{'
[08:09:53.423] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.439] | globals found: [7] '{', 'lapply', ':', ..., 'c'
[08:09:53.440] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=7] ':', '<-', 'a', 'b', 'c', 'lapply', '{'

*** Expression #49 ***
{
    base::lapply(1:3, function(i) {
        G <- function(a, b, c) c(a, b, c)
        G(a, b, c)
    })
}
[08:09:53.441] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.441] | workaround 'codetools' bug #16
[08:09:53.444] | globals found: [4] '{', '::', ':', '<-'
[08:09:53.445] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] ':', '::', '<-', '{'
[08:09:53.445] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.461] | globals found: [7] '{', '::', ':', ..., 'c'
[08:09:53.461] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=7] ':', '::', '<-', 'a', 'b', 'c', '{'

*** Expression #50 ***
~x
[08:09:53.462] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.463] | workaround 'codetools' bug #16
[08:09:53.463] | searching attributes
[08:09:53.464] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ...
[08:09:53.465] | : workaround 'codetools' bug #16

[08:09:53.466] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ... done

[08:09:53.467] | globals found: [2] '~', 'x'
[08:09:53.467] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] 'x', '~'
[08:09:53.468] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.470] | searching attributes
[08:09:53.471] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.472] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done
[08:09:53.473] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.474] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done

[08:09:53.475] | globals found: [2] '~', 'x'
[08:09:53.476] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] 'x', '~'

*** Expression #51 ***
. ~ x
[08:09:53.476] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.477] | workaround 'codetools' bug #16
[08:09:53.478] | searching attributes
[08:09:53.478] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ...
[08:09:53.479] | : workaround 'codetools' bug #16

[08:09:53.480] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ... done

[08:09:53.481] | globals found: [3] '~', '.', 'x'
[08:09:53.481] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '.', 'x', '~'
[08:09:53.482] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.484] | searching attributes
[08:09:53.485] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.486] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done
[08:09:53.487] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.488] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done

[08:09:53.489] | globals found: [3] '~', '.', 'x'
[08:09:53.490] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '.', 'x', '~'

*** Expression #52 ***
y ~ x + 1
[08:09:53.490] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.491] | workaround 'codetools' bug #16
[08:09:53.492] | globals found: [4] '~', 'y', '+', 'x'
[08:09:53.493] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=4] '+', 'x', 'y', '~'
[08:09:53.493] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.497] | globals found: [4] '~', 'y', '+', 'x'
[08:09:53.497] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=4] '+', 'x', 'y', '~'

*** Expression #53 ***
<environment: 0x000002ba5ee06148>
[08:09:53.498] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.498] | workaround 'codetools' bug #16

[08:09:53.500] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.500] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.502] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #54 ***
function () 
a * x
[08:09:53.502] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.503] | workaround 'codetools' bug #16
[08:09:53.504] | globals found: [3] '*', 'a', 'x'
[08:09:53.505] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '*', 'a', 'x'
[08:09:53.505] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.509] | globals found: [3] '*', 'a', 'x'
[08:09:53.509] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '*', 'a', 'x'

*** Expression #55 ***
function (a) 
a * x
[08:09:53.510] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.511] | workaround 'codetools' bug #16
[08:09:53.512] | globals found: [2] '*', 'x'
[08:09:53.512] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '*', 'x'
[08:09:53.513] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.517] | globals found: [2] '*', 'x'
[08:09:53.518] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '*', 'x'

*** Expression #56 ***
function (a, b = 1) 
a * x + b
[08:09:53.519] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.519] | workaround 'codetools' bug #16
[08:09:53.520] | globals found: [3] '+', '*', 'x'
[08:09:53.521] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '*', '+', 'x'
[08:09:53.522] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.528] | globals found: [3] '+', '*', 'x'
[08:09:53.528] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '*', '+', 'x'

*** Expression #57 ***
function (...) 
NULL
[08:09:53.529] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.530] | workaround 'codetools' bug #16

[08:09:53.531] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.531] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.535] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #58 ***
function (...) 
list(...)
[08:09:53.536] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.536] | workaround 'codetools' bug #16
[08:09:53.537] | globals found: [1] 'list'
[08:09:53.537] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'list'
[08:09:53.538] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.542] | globals found: [1] 'list'
[08:09:53.542] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'list'

*** Expression #59 ***
function () 
list(...)
[08:09:53.543] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.544] | workaround 'codetools' bug #16
[08:09:53.545] | Warning message detected: %s"<anonymous> : <anonymous>: ... may be used in an incorrect context: 'list(...)'"
[08:09:53.545] | globals found: [2] 'list', '...'
[08:09:53.546] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=2] '...', 'list'
[08:09:53.547] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.550] | globals found: [2] 'list', '...'
[08:09:53.550] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=2] '...', 'list'

*** Expression #60 ***
function (a, ...) 
base::list(a = a, ...)
[08:09:53.551] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.552] | workaround 'codetools' bug #16
[08:09:53.552] | globals found: [1] '::'
[08:09:53.553] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] '::'
[08:09:53.554] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.559] | globals found: [1] '::'
[08:09:53.560] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] '::'

*** Expression #61 ***
function (a, ...) 
c(a = a, ...)
[08:09:53.561] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.561] | workaround 'codetools' bug #16
[08:09:53.562] | globals found: [1] 'c'
[08:09:53.563] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'c'
[08:09:53.563] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.568] | globals found: [1] 'c'
[08:09:53.568] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'c'

*** Expression #62 ***
expression(x)
[08:09:53.569] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.570] | workaround 'codetools' bug #16
[08:09:53.570] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.571] | : workaround 'codetools' bug #16
[08:09:53.571] | : globals found: [1] 'x'
[08:09:53.572] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
[08:09:53.572] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'x'
[08:09:53.573] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.574] | globals found: [1] 'x'
[08:09:53.575] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'x'

*** Expression #63 ***
expression(x + y)
[08:09:53.576] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.576] | workaround 'codetools' bug #16
[08:09:53.577] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.577] | : workaround 'codetools' bug #16
[08:09:53.578] | : globals found: [3] '+', 'x', 'y'
[08:09:53.578] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
[08:09:53.579] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '+', 'x', 'y'
[08:09:53.579] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.582] | globals found: [3] '+', 'x', 'y'
[08:09:53.582] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '+', 'x', 'y'

*** Expression #64 ***
<object>
[08:09:53.583] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.584] | workaround 'codetools' bug #16

[08:09:53.585] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.585] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.587] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #65 ***
A connection, specifically, 'rawConnection', but invalid.
[08:09:53.588] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.588] | workaround 'codetools' bug #16
[08:09:53.589] | searching attributes
[08:09:53.589] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ...
[08:09:53.590] | : workaround 'codetools' bug #16

[08:09:53.591] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ... done
[08:09:53.591] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ...
[08:09:53.592] | : workaround 'codetools' bug #16

[08:09:53.593] | findGlobals(..., dotdotdot = 'ignore', method = 'ordered', unlist = FALSE) ... done


[08:09:53.594] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=0] 
[08:09:53.595] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.596] | searching attributes
[08:09:53.596] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.598] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done
[08:09:53.598] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ...

[08:09:53.600] | findGlobals(..., dotdotdot = 'ignore', method = 'dfs', unlist = FALSE) ... done


[08:09:53.601] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=0] 

*** Expression #66 ***
for (x in NULL) NULL
[08:09:53.602] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.602] | workaround 'codetools' bug #16
[08:09:53.603] | globals found: [1] 'for'
[08:09:53.604] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'for'
[08:09:53.604] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.607] | globals found: [1] 'for'
[08:09:53.608] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'for'

*** Expression #67 ***
for (x in NULL) x
[08:09:53.609] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.610] | workaround 'codetools' bug #16
[08:09:53.611] | globals found: [1] 'for'
[08:09:53.611] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'for'
[08:09:53.612] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.615] | globals found: [1] 'for'
[08:09:53.615] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'for'

*** Expression #68 ***
base::names(x)[1] <- 0
[08:09:53.616] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.616] | workaround 'codetools' bug #16
[08:09:53.618] | globals found: [5] '<-', '[', '::', 'x', '[<-'
[08:09:53.619] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=5] '::', '<-', '[', '[<-', 'x'
[08:09:53.619] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.624] | globals found: [3] '[<-', '::', 'x'
[08:09:53.625] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '::', '[<-', 'x'

*** Expression #69 ***
$x
a

[08:09:53.625] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.626] | expr: <a list of length 1>
[08:09:53.626] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = FALSE) ...
[08:09:53.627] | : workaround 'codetools' bug #16
[08:09:53.628] | : globals found: [1] 'a'
[08:09:53.628] | findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = FALSE) ... done

[08:09:53.629] | globals found: [1] 'a'
[08:09:53.630] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'a'
[08:09:53.630] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.631] | expr: <a list of length 1>
[08:09:53.631] | findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = FALSE) ...
[08:09:53.632] | : globals found: [1] 'a'
[08:09:53.633] | findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = FALSE) ... done

[08:09:53.634] | globals found: [1] 'a'
[08:09:53.634] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'a'

*** Expression #70 ***
function (x = a) 
NULL
[08:09:53.635] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.635] | workaround 'codetools' bug #16
[08:09:53.636] | globals found: [1] 'a'
[08:09:53.637] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'a'
[08:09:53.637] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.640] | globals found: [1] 'a'
[08:09:53.641] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'a'

*** Expression #71 ***
function (...) 
list(..1, ..2)
[08:09:53.642] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.642] | workaround 'codetools' bug #16
[08:09:53.643] | globals found: [1] 'list'
[08:09:53.644] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=1] 'list'
[08:09:53.644] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.648] | globals found: [1] 'list'
[08:09:53.649] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=1] 'list'

*** Expression #72 ***
function () 
list(..1, ..2)
[08:09:53.650] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ...
[08:09:53.650] | workaround 'codetools' bug #16
[08:09:53.651] | Warning message detected: %s"<anonymous> : <anonymous>: ..1 may be used in an incorrect context"
[08:09:53.652] | Warning message detected: %s"<anonymous> : <anonymous>: ..2 may be used in an incorrect context"
[08:09:53.653] | globals found: [3] 'list', '..1', '..2'
[08:09:53.653] findGlobals(..., dotdotdot = 'warning', method = 'ordered', unlist = TRUE) ... done
       findGlobals(..., type = 'ordered'): [n=3] '..1', '..2', 'list'
[08:09:53.654] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.658] | globals found: [3] 'list', '..1', '..2'
[08:09:53.659] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done
[ OK ] findGlobals(..., type = 'dfs'    ): [n=3] '..1', '..2', 'list'

> message("*** method = 'dfs' with debug = TRUE ...")
*** method = 'dfs' with debug = TRUE ...

> oopts <- options(globals.debug = TRUE)

> globals <- globals::findGlobals(quote(for (i in x) i + 
+     1), method = "dfs")
[08:09:53.660] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.664] | globals found: [3] 'for', 'x', '+'
[08:09:53.664] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("for" %in% globals)

> globals <- globals::findGlobals(quote(function(a, 
+     b = 1) a + x), method = "dfs")
[08:09:53.665] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.670] | globals found: [2] '+', 'x'
[08:09:53.671] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("x" %in% globals)

> globals <- globals::findGlobals(quote(a <- a + 1), 
+     method = "dfs")
[08:09:53.671] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.675] | globals found: [3] '<-', 'a', '+'
[08:09:53.676] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("a" %in% globals)

> globals <- globals::findGlobals(quote(names(a)[1] <- "A"), 
+     method = "dfs")
[08:09:53.676] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.681] | globals found: [4] '[<-', 'names<-', 'names', 'a'
[08:09:53.681] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("a" %in% globals)

> globals <- globals::findGlobals(quote(base::sum), 
+     method = "dfs")
[08:09:53.682] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.683] | globals found: [1] '::'
[08:09:53.684] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("::" %in% globals)

> globals <- globals::findGlobals(quote(x$y), method = "dfs")
[08:09:53.684] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.687] | globals found: [2] '$', 'x'
[08:09:53.688] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("x" %in% globals)

> globals <- globals::findGlobals(expression(a + b), 
+     method = "dfs")
[08:09:53.689] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.691] | globals found: [3] '+', 'a', 'b'
[08:09:53.692] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("a" %in% globals)

> env <- new.env(parent = emptyenv())

> globals <- globals::findGlobals(env, method = "dfs")
[08:09:53.692] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...

[08:09:53.694] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot(identical(globals, character(0)))

> fcn <- function(a) a + x_dfs

> globals <- globals::findGlobals(fcn, method = "dfs")
[08:09:53.695] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.699] | globals found: [2] '+', 'x_dfs'
[08:09:53.699] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("x_dfs" %in% globals)

> globals <- globals::findGlobals(quote(!x), method = "dfs")
[08:09:53.700] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.702] | globals found: [2] '!', 'x'
[08:09:53.702] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> globals <- globals::findGlobals(quote(f()$g), method = "dfs")
[08:09:53.703] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ...
[08:09:53.705] | globals found: [2] '$', 'f'
[08:09:53.706] findGlobals(..., dotdotdot = 'warning', method = 'dfs', unlist = TRUE) ... done

> stopifnot("f" %in% globals)

> options(oopts)

> message("*** method = 'dfs' with debug = TRUE ... DONE")
*** method = 'dfs' with debug = TRUE ... DONE
Sourcing 5 epilogue scripts ...
01/05 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_epilogue/002.undo-state.R'
Failed to undo environment variables:
 - Expected environment variables: [n=212] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', ..., 'tempdirname'
 - Environment variables still there: [n=0] 
 - Environment variables missing: [n=1] 'MAKEFLAGS'
Differences environment variable by environment variable:
02/05 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_epilogue/090.gc.R'
03/05 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_epilogue/099.session_info.R'
04/05 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_epilogue/995.detritus-connections.R'
05/05 epilogue script 'D:/RCompile/CRANincoming/R-devel/lib/globals/testme/_epilogue/999.detritus-files.R'
Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2026_03_13_07_10_17_31522'
Sourcing 5 epilogue scripts ... done
Test time: user.self=0.7s, sys.self=0.1s, elapsed=0.8s, user.child=NAs, sys.child=NAs
Test 'findGlobals,dfs' ... success
> 
> proc.time()
   user  system elapsed 
   0.81    0.14    0.93