R version 4.5.0 beta (2025-03-29 r88074 ucrt) -- "How About a Twenty-Six"
Copyright (C) 2025 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.

> db_state <- future.tests:::db_state
> stop_if_not <- future.tests:::stop_if_not
> options(future.tests.debug = TRUE)
> 
> message("*** db_state() ...")
*** db_state() ...
> 
> res <- db_state("list")
db_state('list') ...
- stack depth: 1
> str(res)
List of 1
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> 
> res <- db_state("reset")
db_state('reset') ...
- stack depth: 1
- stack depth: 1
db_state('reset') ... done
> str(res)
 NULL
> 
> stack <- db_state("list")
db_state('list') ...
- stack depth: 1
> str(stack)
List of 1
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> stop_if_not(length(stack) == 1L)
NULL
> 
> res <- db_state("push", title = "abc")
db_state('push') ...
- stack depth: 1
List of 7
 $ title: chr "abc"
 $ envir:<environment: R_GlobalEnv> 
 $ vars :List of 4
  ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  ..$ res        : NULL
  ..$ stack      :List of 1
  .. ..$ :List of 7
  .. .. ..$ title: NULL
  .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. ..$ vars : chr(0) 
  .. .. ..$ envs : list()
  .. .. ..$ opts : list()
  .. .. ..$ devs : NULL
  .. .. ..$ plan : NULL
  ..$ stop_if_not:function (...)  
 $ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
 $ opts :List of 78
  ..$ CBoundsCheck                             : logi FALSE
  ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  ..$ OutDec                                   : chr "."
  ..$ PCRE_limit_recursion                     : logi NA
  ..$ PCRE_study                               : logi FALSE
  ..$ PCRE_use_JIT                             : logi TRUE
  ..$ add.smooth                               : logi TRUE
  ..$ browser                                  : chr "false"
  ..$ browserNLdisabled                        : logi FALSE
  ..$ callr.condition_handler_cli_message      :function (msg)  
  ..$ catch.script.errors                      : logi FALSE
  ..$ check.bounds                             : logi FALSE
  ..$ citation.bibtex.max                      : int 1
  ..$ continue                                 : chr "+ "
  ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  ..$ demo.ask                                 : chr "default"
  ..$ deparse.cutoff                           : int 60
  ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  ..$ device.ask.default                       : logi FALSE
  ..$ digits                                   : int 7
  ..$ echo                                     : logi TRUE
  ..$ editor                                   : chr "notepad"
  ..$ encoding                                 : chr "native.enc"
  ..$ example.ask                              : chr "default"
  ..$ expressions                              : int 5000
  ..$ future.tests.debug                       : logi TRUE
  ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  ..$ help.try.all.packages                    : logi FALSE
  ..$ install.packages.compile.from.source     : chr "interactive"
  ..$ internet.info                            : int 2
  ..$ keep.parse.data                          : logi TRUE
  ..$ keep.parse.data.pkgs                     : logi FALSE
  ..$ keep.source                              : logi FALSE
  ..$ keep.source.pkgs                         : logi FALSE
  ..$ locatorBell                              : logi TRUE
  ..$ mailer                                   : chr "mailto"
  ..$ matprod                                  : chr "default"
  ..$ max.contour.segments                     : int 25000
  ..$ max.print                                : int 99999
  ..$ mc.cores                                 : int 2
  ..$ menu.graphics                            : logi TRUE
  ..$ na.action                                : chr "na.omit"
  ..$ nwarnings                                : int 50
  ..$ pager                                    : chr "internal"
  ..$ papersize                                : chr "a4"
  ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  ..$ parallelly.makeNodePSOCK.timeout         : num 120
  ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  ..$ pkgType                                  : chr "both"
  ..$ prompt                                   : chr "> "
  ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. ..- attr(*, "names")= chr "CRAN"
  ..$ scipen                                   : int 0
  ..$ show.coef.Pvalues                        : logi TRUE
  ..$ show.error.messages                      : logi TRUE
  ..$ show.signif.stars                        : logi TRUE
  ..$ showErrorCalls                           : logi TRUE
  ..$ showNCalls                               : int 50
  ..$ showWarnCalls                            : logi FALSE
  ..$ str                                      :List of 7
  .. ..$ strict.width     : chr "no"
  .. ..$ digits.d         : int 3
  .. ..$ vec.len          : int 4
  .. ..$ list.len         : int 99
  .. ..$ deparse.lines    : NULL
  .. ..$ drop.deparse.attr: logi TRUE
  .. ..$ formatNum        :function (x, ...)  
  ..$ str.dendrogram.last                      : chr "`"
  ..$ timeout                                  : int 60
  ..$ ts.S.compat                              : logi FALSE
  ..$ ts.eps                                   : num 1e-05
  ..$ unzip                                    : chr "internal"
  ..$ useFancyQuotes                           : logi FALSE
  ..$ verbose                                  : logi FALSE
  ..$ warn                                     : int 0
  ..$ warnPartialMatchArgs                     : logi FALSE
  ..$ warnPartialMatchAttr                     : logi FALSE
  ..$ warnPartialMatchDollar                   : logi FALSE
  ..$ warning.length                           : int 1000
  ..$ width                                    : int 80
  ..$ windowsTimeouts                          : int [1:2] 100 500
 $ devs : NULL
 $ plan :List of 1
  ..$ :function (..., envir = parent.frame())  
  .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
List of 1
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
List of 2
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
- stack depth: 2
db_state('push') ... done
> str(res)
 NULL
> 
> options(foo = 42L)
> Sys.setenv(BAR = "3.14")
> 
> stack <- db_state("list")
db_state('list') ...
- stack depth: 2
> str(stack)
List of 2
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> stop_if_not(length(stack) == 2L)
NULL
> 
> res <- db_state("push", title = "def")
db_state('push') ...
- stack depth: 2
List of 7
 $ title: chr "def"
 $ envir:<environment: R_GlobalEnv> 
 $ vars :List of 4
  ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  ..$ res        : NULL
  ..$ stack      :List of 2
  .. ..$ :List of 7
  .. .. ..$ title: chr "abc"
  .. .. ..$ envir:<environment: R_GlobalEnv> 
  .. .. ..$ vars :List of 4
  .. .. .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. .. .. ..$ res        : NULL
  .. .. .. ..$ stack      :List of 1
  .. .. .. .. ..$ :List of 7
  .. .. .. .. .. ..$ title: NULL
  .. .. .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. .. .. ..$ vars : chr(0) 
  .. .. .. .. .. ..$ envs : list()
  .. .. .. .. .. ..$ opts : list()
  .. .. .. .. .. ..$ devs : NULL
  .. .. .. .. .. ..$ plan : NULL
  .. .. .. ..$ stop_if_not:function (...)  
  .. .. ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. .. .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  .. .. ..$ opts :List of 78
  .. .. .. ..$ CBoundsCheck                             : logi FALSE
  .. .. .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. .. .. ..$ OutDec                                   : chr "."
  .. .. .. ..$ PCRE_limit_recursion                     : logi NA
  .. .. .. ..$ PCRE_study                               : logi FALSE
  .. .. .. ..$ PCRE_use_JIT                             : logi TRUE
  .. .. .. ..$ add.smooth                               : logi TRUE
  .. .. .. ..$ browser                                  : chr "false"
  .. .. .. ..$ browserNLdisabled                        : logi FALSE
  .. .. .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. .. .. ..$ catch.script.errors                      : logi FALSE
  .. .. .. ..$ check.bounds                             : logi FALSE
  .. .. .. ..$ citation.bibtex.max                      : int 1
  .. .. .. ..$ continue                                 : chr "+ "
  .. .. .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. .. .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. .. .. ..$ demo.ask                                 : chr "default"
  .. .. .. ..$ deparse.cutoff                           : int 60
  .. .. .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. .. .. ..$ device.ask.default                       : logi FALSE
  .. .. .. ..$ digits                                   : int 7
  .. .. .. ..$ echo                                     : logi TRUE
  .. .. .. ..$ editor                                   : chr "notepad"
  .. .. .. ..$ encoding                                 : chr "native.enc"
  .. .. .. ..$ example.ask                              : chr "default"
  .. .. .. ..$ expressions                              : int 5000
  .. .. .. ..$ future.tests.debug                       : logi TRUE
  .. .. .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. .. .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. .. .. ..$ help.try.all.packages                    : logi FALSE
  .. .. .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. .. .. ..$ internet.info                            : int 2
  .. .. .. ..$ keep.parse.data                          : logi TRUE
  .. .. .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. .. .. ..$ keep.source                              : logi FALSE
  .. .. .. ..$ keep.source.pkgs                         : logi FALSE
  .. .. .. ..$ locatorBell                              : logi TRUE
  .. .. .. ..$ mailer                                   : chr "mailto"
  .. .. .. ..$ matprod                                  : chr "default"
  .. .. .. ..$ max.contour.segments                     : int 25000
  .. .. .. ..$ max.print                                : int 99999
  .. .. .. ..$ mc.cores                                 : int 2
  .. .. .. ..$ menu.graphics                            : logi TRUE
  .. .. .. ..$ na.action                                : chr "na.omit"
  .. .. .. ..$ nwarnings                                : int 50
  .. .. .. ..$ pager                                    : chr "internal"
  .. .. .. ..$ papersize                                : chr "a4"
  .. .. .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. .. .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. .. .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. .. .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. .. .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. .. .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. .. .. ..$ pkgType                                  : chr "both"
  .. .. .. ..$ prompt                                   : chr "> "
  .. .. .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. .. .. ..- attr(*, "names")= chr "CRAN"
  .. .. .. ..$ scipen                                   : int 0
  .. .. .. ..$ show.coef.Pvalues                        : logi TRUE
  .. .. .. ..$ show.error.messages                      : logi TRUE
  .. .. .. ..$ show.signif.stars                        : logi TRUE
  .. .. .. ..$ showErrorCalls                           : logi TRUE
  .. .. .. ..$ showNCalls                               : int 50
  .. .. .. ..$ showWarnCalls                            : logi FALSE
  .. .. .. ..$ str                                      :List of 7
  .. .. .. .. ..$ strict.width     : chr "no"
  .. .. .. .. ..$ digits.d         : int 3
  .. .. .. .. ..$ vec.len          : int 4
  .. .. .. .. ..$ list.len         : int 99
  .. .. .. .. ..$ deparse.lines    : NULL
  .. .. .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. .. .. ..$ formatNum        :function (x, ...)  
  .. .. .. ..$ str.dendrogram.last                      : chr "`"
  .. .. .. ..$ timeout                                  : int 60
  .. .. .. ..$ ts.S.compat                              : logi FALSE
  .. .. .. ..$ ts.eps                                   : num 1e-05
  .. .. .. ..$ unzip                                    : chr "internal"
  .. .. .. ..$ useFancyQuotes                           : logi FALSE
  .. .. .. ..$ verbose                                  : logi FALSE
  .. .. .. ..$ warn                                     : int 0
  .. .. .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. .. .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. .. .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. .. .. ..$ warning.length                           : int 1000
  .. .. .. ..$ width                                    : int 80
  .. .. .. ..$ windowsTimeouts                          : int [1:2] 100 500
  .. .. ..$ devs : NULL
  .. .. ..$ plan :List of 1
  .. .. .. ..$ :function (..., envir = parent.frame())  
  .. .. .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. .. .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  .. ..$ :List of 7
  .. .. ..$ title: NULL
  .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. ..$ vars : chr(0) 
  .. .. ..$ envs : list()
  .. .. ..$ opts : list()
  .. .. ..$ devs : NULL
  .. .. ..$ plan : NULL
  ..$ stop_if_not:function (...)  
 $ envs : 'Dlist' Named chr [1:211] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" "3.14" ...
  ..- attr(*, "names")= chr [1:211] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BAR" ...
 $ opts :List of 79
  ..$ CBoundsCheck                             : logi FALSE
  ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  ..$ OutDec                                   : chr "."
  ..$ PCRE_limit_recursion                     : logi NA
  ..$ PCRE_study                               : logi FALSE
  ..$ PCRE_use_JIT                             : logi TRUE
  ..$ add.smooth                               : logi TRUE
  ..$ browser                                  : chr "false"
  ..$ browserNLdisabled                        : logi FALSE
  ..$ callr.condition_handler_cli_message      :function (msg)  
  ..$ catch.script.errors                      : logi FALSE
  ..$ check.bounds                             : logi FALSE
  ..$ citation.bibtex.max                      : int 1
  ..$ continue                                 : chr "+ "
  ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  ..$ demo.ask                                 : chr "default"
  ..$ deparse.cutoff                           : int 60
  ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  ..$ device.ask.default                       : logi FALSE
  ..$ digits                                   : int 7
  ..$ echo                                     : logi TRUE
  ..$ editor                                   : chr "notepad"
  ..$ encoding                                 : chr "native.enc"
  ..$ example.ask                              : chr "default"
  ..$ expressions                              : int 5000
  ..$ foo                                      : int 42
  ..$ future.tests.debug                       : logi TRUE
  ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  ..$ help.try.all.packages                    : logi FALSE
  ..$ install.packages.compile.from.source     : chr "interactive"
  ..$ internet.info                            : int 2
  ..$ keep.parse.data                          : logi TRUE
  ..$ keep.parse.data.pkgs                     : logi FALSE
  ..$ keep.source                              : logi FALSE
  ..$ keep.source.pkgs                         : logi FALSE
  ..$ locatorBell                              : logi TRUE
  ..$ mailer                                   : chr "mailto"
  ..$ matprod                                  : chr "default"
  ..$ max.contour.segments                     : int 25000
  ..$ max.print                                : int 99999
  ..$ mc.cores                                 : int 2
  ..$ menu.graphics                            : logi TRUE
  ..$ na.action                                : chr "na.omit"
  ..$ nwarnings                                : int 50
  ..$ pager                                    : chr "internal"
  ..$ papersize                                : chr "a4"
  ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  ..$ parallelly.makeNodePSOCK.timeout         : num 120
  ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  ..$ pkgType                                  : chr "both"
  ..$ prompt                                   : chr "> "
  ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. ..- attr(*, "names")= chr "CRAN"
  ..$ scipen                                   : int 0
  ..$ show.coef.Pvalues                        : logi TRUE
  ..$ show.error.messages                      : logi TRUE
  ..$ show.signif.stars                        : logi TRUE
  ..$ showErrorCalls                           : logi TRUE
  ..$ showNCalls                               : int 50
  ..$ showWarnCalls                            : logi FALSE
  ..$ str                                      :List of 7
  .. ..$ strict.width     : chr "no"
  .. ..$ digits.d         : int 3
  .. ..$ vec.len          : int 4
  .. ..$ list.len         : int 99
  .. ..$ deparse.lines    : NULL
  .. ..$ drop.deparse.attr: logi TRUE
  .. ..$ formatNum        :function (x, ...)  
  ..$ str.dendrogram.last                      : chr "`"
  ..$ timeout                                  : int 60
  ..$ ts.S.compat                              : logi FALSE
  ..$ ts.eps                                   : num 1e-05
  ..$ unzip                                    : chr "internal"
  ..$ useFancyQuotes                           : logi FALSE
  ..$ verbose                                  : logi FALSE
  ..$ warn                                     : int 0
  ..$ warnPartialMatchArgs                     : logi FALSE
  ..$ warnPartialMatchAttr                     : logi FALSE
  ..$ warnPartialMatchDollar                   : logi FALSE
  ..$ warning.length                           : int 1000
  ..$ width                                    : int 80
  ..$ windowsTimeouts                          : int [1:2] 100 500
 $ devs : NULL
 $ plan :List of 1
  ..$ :function (..., envir = parent.frame())  
  .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
List of 2
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
List of 3
 $ :List of 7
  ..$ title: chr "def"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 2
  .. .. ..$ :List of 7
  .. .. .. ..$ title: chr "abc"
  .. .. .. ..$ envir:<environment: R_GlobalEnv> 
  .. .. .. ..$ vars :List of 4
  .. .. .. .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. .. .. .. ..$ res        : NULL
  .. .. .. .. ..$ stack      :List of 1
  .. .. .. .. .. ..$ :List of 7
  .. .. .. .. .. .. ..$ title: NULL
  .. .. .. .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. .. .. .. ..$ vars : chr(0) 
  .. .. .. .. .. .. ..$ envs : list()
  .. .. .. .. .. .. ..$ opts : list()
  .. .. .. .. .. .. ..$ devs : NULL
  .. .. .. .. .. .. ..$ plan : NULL
  .. .. .. .. ..$ stop_if_not:function (...)  
  .. .. .. ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. .. .. .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  .. .. .. ..$ opts :List of 78
  .. .. .. .. ..$ CBoundsCheck                             : logi FALSE
  .. .. .. .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. .. .. .. ..$ OutDec                                   : chr "."
  .. .. .. .. ..$ PCRE_limit_recursion                     : logi NA
  .. .. .. .. ..$ PCRE_study                               : logi FALSE
  .. .. .. .. ..$ PCRE_use_JIT                             : logi TRUE
  .. .. .. .. ..$ add.smooth                               : logi TRUE
  .. .. .. .. ..$ browser                                  : chr "false"
  .. .. .. .. ..$ browserNLdisabled                        : logi FALSE
  .. .. .. .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. .. .. .. ..$ catch.script.errors                      : logi FALSE
  .. .. .. .. ..$ check.bounds                             : logi FALSE
  .. .. .. .. ..$ citation.bibtex.max                      : int 1
  .. .. .. .. ..$ continue                                 : chr "+ "
  .. .. .. .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. .. .. .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. .. .. .. ..$ demo.ask                                 : chr "default"
  .. .. .. .. ..$ deparse.cutoff                           : int 60
  .. .. .. .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. .. .. .. ..$ device.ask.default                       : logi FALSE
  .. .. .. .. ..$ digits                                   : int 7
  .. .. .. .. ..$ echo                                     : logi TRUE
  .. .. .. .. ..$ editor                                   : chr "notepad"
  .. .. .. .. ..$ encoding                                 : chr "native.enc"
  .. .. .. .. ..$ example.ask                              : chr "default"
  .. .. .. .. ..$ expressions                              : int 5000
  .. .. .. .. ..$ future.tests.debug                       : logi TRUE
  .. .. .. .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. .. .. .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. .. .. .. ..$ help.try.all.packages                    : logi FALSE
  .. .. .. .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. .. .. .. ..$ internet.info                            : int 2
  .. .. .. .. ..$ keep.parse.data                          : logi TRUE
  .. .. .. .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. .. .. .. ..$ keep.source                              : logi FALSE
  .. .. .. .. ..$ keep.source.pkgs                         : logi FALSE
  .. .. .. .. ..$ locatorBell                              : logi TRUE
  .. .. .. .. ..$ mailer                                   : chr "mailto"
  .. .. .. .. ..$ matprod                                  : chr "default"
  .. .. .. .. ..$ max.contour.segments                     : int 25000
  .. .. .. .. ..$ max.print                                : int 99999
  .. .. .. .. ..$ mc.cores                                 : int 2
  .. .. .. .. ..$ menu.graphics                            : logi TRUE
  .. .. .. .. ..$ na.action                                : chr "na.omit"
  .. .. .. .. ..$ nwarnings                                : int 50
  .. .. .. .. ..$ pager                                    : chr "internal"
  .. .. .. .. ..$ papersize                                : chr "a4"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. .. .. .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. .. .. .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. .. .. .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. .. .. .. ..$ pkgType                                  : chr "both"
  .. .. .. .. ..$ prompt                                   : chr "> "
  .. .. .. .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. .. .. .. ..- attr(*, "names")= chr "CRAN"
  .. .. .. .. ..$ scipen                                   : int 0
  .. .. .. .. ..$ show.coef.Pvalues                        : logi TRUE
  .. .. .. .. ..$ show.error.messages                      : logi TRUE
  .. .. .. .. ..$ show.signif.stars                        : logi TRUE
  .. .. .. .. ..$ showErrorCalls                           : logi TRUE
  .. .. .. .. ..$ showNCalls                               : int 50
  .. .. .. .. ..$ showWarnCalls                            : logi FALSE
  .. .. .. .. ..$ str                                      :List of 7
  .. .. .. .. .. ..$ strict.width     : chr "no"
  .. .. .. .. .. ..$ digits.d         : int 3
  .. .. .. .. .. ..$ vec.len          : int 4
  .. .. .. .. .. ..$ list.len         : int 99
  .. .. .. .. .. ..$ deparse.lines    : NULL
  .. .. .. .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. .. .. .. ..$ formatNum        :function (x, ...)  
  .. .. .. .. ..$ str.dendrogram.last                      : chr "`"
  .. .. .. .. ..$ timeout                                  : int 60
  .. .. .. .. ..$ ts.S.compat                              : logi FALSE
  .. .. .. .. ..$ ts.eps                                   : num 1e-05
  .. .. .. .. ..$ unzip                                    : chr "internal"
  .. .. .. .. ..$ useFancyQuotes                           : logi FALSE
  .. .. .. .. ..$ verbose                                  : logi FALSE
  .. .. .. .. ..$ warn                                     : int 0
  .. .. .. .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. .. .. .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. .. .. .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. .. .. .. ..$ warning.length                           : int 1000
  .. .. .. .. ..$ width                                    : int 80
  .. .. .. .. ..$ windowsTimeouts                          : int [1:2] 100 500
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan :List of 1
  .. .. .. .. ..$ :function (..., envir = parent.frame())  
  .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. .. .. .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:211] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" "3.14" ...
  .. ..- attr(*, "names")= chr [1:211] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BAR" ...
  ..$ opts :List of 79
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ foo                                      : int 42
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
- stack depth: 3
db_state('push') ... done
> str(res)
 NULL
> 
> stack <- db_state("list")
db_state('list') ...
- stack depth: 3
> str(stack)
List of 3
 $ :List of 7
  ..$ title: chr "def"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 2
  .. .. ..$ :List of 7
  .. .. .. ..$ title: chr "abc"
  .. .. .. ..$ envir:<environment: R_GlobalEnv> 
  .. .. .. ..$ vars :List of 4
  .. .. .. .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. .. .. .. ..$ res        : NULL
  .. .. .. .. ..$ stack      :List of 1
  .. .. .. .. .. ..$ :List of 7
  .. .. .. .. .. .. ..$ title: NULL
  .. .. .. .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. .. .. .. ..$ vars : chr(0) 
  .. .. .. .. .. .. ..$ envs : list()
  .. .. .. .. .. .. ..$ opts : list()
  .. .. .. .. .. .. ..$ devs : NULL
  .. .. .. .. .. .. ..$ plan : NULL
  .. .. .. .. ..$ stop_if_not:function (...)  
  .. .. .. ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. .. .. .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  .. .. .. ..$ opts :List of 78
  .. .. .. .. ..$ CBoundsCheck                             : logi FALSE
  .. .. .. .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. .. .. .. ..$ OutDec                                   : chr "."
  .. .. .. .. ..$ PCRE_limit_recursion                     : logi NA
  .. .. .. .. ..$ PCRE_study                               : logi FALSE
  .. .. .. .. ..$ PCRE_use_JIT                             : logi TRUE
  .. .. .. .. ..$ add.smooth                               : logi TRUE
  .. .. .. .. ..$ browser                                  : chr "false"
  .. .. .. .. ..$ browserNLdisabled                        : logi FALSE
  .. .. .. .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. .. .. .. ..$ catch.script.errors                      : logi FALSE
  .. .. .. .. ..$ check.bounds                             : logi FALSE
  .. .. .. .. ..$ citation.bibtex.max                      : int 1
  .. .. .. .. ..$ continue                                 : chr "+ "
  .. .. .. .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. .. .. .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. .. .. .. ..$ demo.ask                                 : chr "default"
  .. .. .. .. ..$ deparse.cutoff                           : int 60
  .. .. .. .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. .. .. .. ..$ device.ask.default                       : logi FALSE
  .. .. .. .. ..$ digits                                   : int 7
  .. .. .. .. ..$ echo                                     : logi TRUE
  .. .. .. .. ..$ editor                                   : chr "notepad"
  .. .. .. .. ..$ encoding                                 : chr "native.enc"
  .. .. .. .. ..$ example.ask                              : chr "default"
  .. .. .. .. ..$ expressions                              : int 5000
  .. .. .. .. ..$ future.tests.debug                       : logi TRUE
  .. .. .. .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. .. .. .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. .. .. .. ..$ help.try.all.packages                    : logi FALSE
  .. .. .. .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. .. .. .. ..$ internet.info                            : int 2
  .. .. .. .. ..$ keep.parse.data                          : logi TRUE
  .. .. .. .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. .. .. .. ..$ keep.source                              : logi FALSE
  .. .. .. .. ..$ keep.source.pkgs                         : logi FALSE
  .. .. .. .. ..$ locatorBell                              : logi TRUE
  .. .. .. .. ..$ mailer                                   : chr "mailto"
  .. .. .. .. ..$ matprod                                  : chr "default"
  .. .. .. .. ..$ max.contour.segments                     : int 25000
  .. .. .. .. ..$ max.print                                : int 99999
  .. .. .. .. ..$ mc.cores                                 : int 2
  .. .. .. .. ..$ menu.graphics                            : logi TRUE
  .. .. .. .. ..$ na.action                                : chr "na.omit"
  .. .. .. .. ..$ nwarnings                                : int 50
  .. .. .. .. ..$ pager                                    : chr "internal"
  .. .. .. .. ..$ papersize                                : chr "a4"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. .. .. .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. .. .. .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. .. .. .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. .. .. .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. .. .. .. ..$ pkgType                                  : chr "both"
  .. .. .. .. ..$ prompt                                   : chr "> "
  .. .. .. .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. .. .. .. ..- attr(*, "names")= chr "CRAN"
  .. .. .. .. ..$ scipen                                   : int 0
  .. .. .. .. ..$ show.coef.Pvalues                        : logi TRUE
  .. .. .. .. ..$ show.error.messages                      : logi TRUE
  .. .. .. .. ..$ show.signif.stars                        : logi TRUE
  .. .. .. .. ..$ showErrorCalls                           : logi TRUE
  .. .. .. .. ..$ showNCalls                               : int 50
  .. .. .. .. ..$ showWarnCalls                            : logi FALSE
  .. .. .. .. ..$ str                                      :List of 7
  .. .. .. .. .. ..$ strict.width     : chr "no"
  .. .. .. .. .. ..$ digits.d         : int 3
  .. .. .. .. .. ..$ vec.len          : int 4
  .. .. .. .. .. ..$ list.len         : int 99
  .. .. .. .. .. ..$ deparse.lines    : NULL
  .. .. .. .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. .. .. .. ..$ formatNum        :function (x, ...)  
  .. .. .. .. ..$ str.dendrogram.last                      : chr "`"
  .. .. .. .. ..$ timeout                                  : int 60
  .. .. .. .. ..$ ts.S.compat                              : logi FALSE
  .. .. .. .. ..$ ts.eps                                   : num 1e-05
  .. .. .. .. ..$ unzip                                    : chr "internal"
  .. .. .. .. ..$ useFancyQuotes                           : logi FALSE
  .. .. .. .. ..$ verbose                                  : logi FALSE
  .. .. .. .. ..$ warn                                     : int 0
  .. .. .. .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. .. .. .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. .. .. .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. .. .. .. ..$ warning.length                           : int 1000
  .. .. .. .. ..$ width                                    : int 80
  .. .. .. .. ..$ windowsTimeouts                          : int [1:2] 100 500
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan :List of 1
  .. .. .. .. ..$ :function (..., envir = parent.frame())  
  .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. .. .. .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:211] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" "3.14" ...
  .. ..- attr(*, "names")= chr [1:211] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BAR" ...
  ..$ opts :List of 79
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ foo                                      : int 42
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> stop_if_not(length(stack) == 3L)
NULL
> 
> res <- db_state("pop")
db_state('pop') ...
- stack depth: 3
List of 7
 $ title: chr "def"
 $ envir:<environment: R_GlobalEnv> 
 $ vars :List of 4
  ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  ..$ res        : NULL
  ..$ stack      :List of 2
  .. ..$ :List of 7
  .. .. ..$ title: chr "abc"
  .. .. ..$ envir:<environment: R_GlobalEnv> 
  .. .. ..$ vars :List of 4
  .. .. .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. .. .. ..$ res        : NULL
  .. .. .. ..$ stack      :List of 1
  .. .. .. .. ..$ :List of 7
  .. .. .. .. .. ..$ title: NULL
  .. .. .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. .. .. ..$ vars : chr(0) 
  .. .. .. .. .. ..$ envs : list()
  .. .. .. .. .. ..$ opts : list()
  .. .. .. .. .. ..$ devs : NULL
  .. .. .. .. .. ..$ plan : NULL
  .. .. .. ..$ stop_if_not:function (...)  
  .. .. ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. .. .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  .. .. ..$ opts :List of 78
  .. .. .. ..$ CBoundsCheck                             : logi FALSE
  .. .. .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. .. .. ..$ OutDec                                   : chr "."
  .. .. .. ..$ PCRE_limit_recursion                     : logi NA
  .. .. .. ..$ PCRE_study                               : logi FALSE
  .. .. .. ..$ PCRE_use_JIT                             : logi TRUE
  .. .. .. ..$ add.smooth                               : logi TRUE
  .. .. .. ..$ browser                                  : chr "false"
  .. .. .. ..$ browserNLdisabled                        : logi FALSE
  .. .. .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. .. .. ..$ catch.script.errors                      : logi FALSE
  .. .. .. ..$ check.bounds                             : logi FALSE
  .. .. .. ..$ citation.bibtex.max                      : int 1
  .. .. .. ..$ continue                                 : chr "+ "
  .. .. .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. .. .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. .. .. ..$ demo.ask                                 : chr "default"
  .. .. .. ..$ deparse.cutoff                           : int 60
  .. .. .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. .. .. ..$ device.ask.default                       : logi FALSE
  .. .. .. ..$ digits                                   : int 7
  .. .. .. ..$ echo                                     : logi TRUE
  .. .. .. ..$ editor                                   : chr "notepad"
  .. .. .. ..$ encoding                                 : chr "native.enc"
  .. .. .. ..$ example.ask                              : chr "default"
  .. .. .. ..$ expressions                              : int 5000
  .. .. .. ..$ future.tests.debug                       : logi TRUE
  .. .. .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. .. .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. .. .. ..$ help.try.all.packages                    : logi FALSE
  .. .. .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. .. .. ..$ internet.info                            : int 2
  .. .. .. ..$ keep.parse.data                          : logi TRUE
  .. .. .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. .. .. ..$ keep.source                              : logi FALSE
  .. .. .. ..$ keep.source.pkgs                         : logi FALSE
  .. .. .. ..$ locatorBell                              : logi TRUE
  .. .. .. ..$ mailer                                   : chr "mailto"
  .. .. .. ..$ matprod                                  : chr "default"
  .. .. .. ..$ max.contour.segments                     : int 25000
  .. .. .. ..$ max.print                                : int 99999
  .. .. .. ..$ mc.cores                                 : int 2
  .. .. .. ..$ menu.graphics                            : logi TRUE
  .. .. .. ..$ na.action                                : chr "na.omit"
  .. .. .. ..$ nwarnings                                : int 50
  .. .. .. ..$ pager                                    : chr "internal"
  .. .. .. ..$ papersize                                : chr "a4"
  .. .. .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. .. .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. .. .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. .. .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. .. .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. .. .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. .. .. ..$ pkgType                                  : chr "both"
  .. .. .. ..$ prompt                                   : chr "> "
  .. .. .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. .. .. ..- attr(*, "names")= chr "CRAN"
  .. .. .. ..$ scipen                                   : int 0
  .. .. .. ..$ show.coef.Pvalues                        : logi TRUE
  .. .. .. ..$ show.error.messages                      : logi TRUE
  .. .. .. ..$ show.signif.stars                        : logi TRUE
  .. .. .. ..$ showErrorCalls                           : logi TRUE
  .. .. .. ..$ showNCalls                               : int 50
  .. .. .. ..$ showWarnCalls                            : logi FALSE
  .. .. .. ..$ str                                      :List of 7
  .. .. .. .. ..$ strict.width     : chr "no"
  .. .. .. .. ..$ digits.d         : int 3
  .. .. .. .. ..$ vec.len          : int 4
  .. .. .. .. ..$ list.len         : int 99
  .. .. .. .. ..$ deparse.lines    : NULL
  .. .. .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. .. .. ..$ formatNum        :function (x, ...)  
  .. .. .. ..$ str.dendrogram.last                      : chr "`"
  .. .. .. ..$ timeout                                  : int 60
  .. .. .. ..$ ts.S.compat                              : logi FALSE
  .. .. .. ..$ ts.eps                                   : num 1e-05
  .. .. .. ..$ unzip                                    : chr "internal"
  .. .. .. ..$ useFancyQuotes                           : logi FALSE
  .. .. .. ..$ verbose                                  : logi FALSE
  .. .. .. ..$ warn                                     : int 0
  .. .. .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. .. .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. .. .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. .. .. ..$ warning.length                           : int 1000
  .. .. .. ..$ width                                    : int 80
  .. .. .. ..$ windowsTimeouts                          : int [1:2] 100 500
  .. .. ..$ devs : NULL
  .. .. ..$ plan :List of 1
  .. .. .. ..$ :function (..., envir = parent.frame())  
  .. .. .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. .. .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
  .. ..$ :List of 7
  .. .. ..$ title: NULL
  .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. ..$ vars : chr(0) 
  .. .. ..$ envs : list()
  .. .. ..$ opts : list()
  .. .. ..$ devs : NULL
  .. .. ..$ plan : NULL
  ..$ stop_if_not:function (...)  
 $ envs : 'Dlist' Named chr [1:211] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" "3.14" ...
  ..- attr(*, "names")= chr [1:211] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BAR" ...
 $ opts :List of 79
  ..$ CBoundsCheck                             : logi FALSE
  ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  ..$ OutDec                                   : chr "."
  ..$ PCRE_limit_recursion                     : logi NA
  ..$ PCRE_study                               : logi FALSE
  ..$ PCRE_use_JIT                             : logi TRUE
  ..$ add.smooth                               : logi TRUE
  ..$ browser                                  : chr "false"
  ..$ browserNLdisabled                        : logi FALSE
  ..$ callr.condition_handler_cli_message      :function (msg)  
  ..$ catch.script.errors                      : logi FALSE
  ..$ check.bounds                             : logi FALSE
  ..$ citation.bibtex.max                      : int 1
  ..$ continue                                 : chr "+ "
  ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  ..$ demo.ask                                 : chr "default"
  ..$ deparse.cutoff                           : int 60
  ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  ..$ device.ask.default                       : logi FALSE
  ..$ digits                                   : int 7
  ..$ echo                                     : logi TRUE
  ..$ editor                                   : chr "notepad"
  ..$ encoding                                 : chr "native.enc"
  ..$ example.ask                              : chr "default"
  ..$ expressions                              : int 5000
  ..$ foo                                      : int 42
  ..$ future.tests.debug                       : logi TRUE
  ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  ..$ help.try.all.packages                    : logi FALSE
  ..$ install.packages.compile.from.source     : chr "interactive"
  ..$ internet.info                            : int 2
  ..$ keep.parse.data                          : logi TRUE
  ..$ keep.parse.data.pkgs                     : logi FALSE
  ..$ keep.source                              : logi FALSE
  ..$ keep.source.pkgs                         : logi FALSE
  ..$ locatorBell                              : logi TRUE
  ..$ mailer                                   : chr "mailto"
  ..$ matprod                                  : chr "default"
  ..$ max.contour.segments                     : int 25000
  ..$ max.print                                : int 99999
  ..$ mc.cores                                 : int 2
  ..$ menu.graphics                            : logi TRUE
  ..$ na.action                                : chr "na.omit"
  ..$ nwarnings                                : int 50
  ..$ pager                                    : chr "internal"
  ..$ papersize                                : chr "a4"
  ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  ..$ parallelly.makeNodePSOCK.timeout         : num 120
  ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  ..$ pkgType                                  : chr "both"
  ..$ prompt                                   : chr "> "
  ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. ..- attr(*, "names")= chr "CRAN"
  ..$ scipen                                   : int 0
  ..$ show.coef.Pvalues                        : logi TRUE
  ..$ show.error.messages                      : logi TRUE
  ..$ show.signif.stars                        : logi TRUE
  ..$ showErrorCalls                           : logi TRUE
  ..$ showNCalls                               : int 50
  ..$ showWarnCalls                            : logi FALSE
  ..$ str                                      :List of 7
  .. ..$ strict.width     : chr "no"
  .. ..$ digits.d         : int 3
  .. ..$ vec.len          : int 4
  .. ..$ list.len         : int 99
  .. ..$ deparse.lines    : NULL
  .. ..$ drop.deparse.attr: logi TRUE
  .. ..$ formatNum        :function (x, ...)  
  ..$ str.dendrogram.last                      : chr "`"
  ..$ timeout                                  : int 60
  ..$ ts.S.compat                              : logi FALSE
  ..$ ts.eps                                   : num 1e-05
  ..$ unzip                                    : chr "internal"
  ..$ useFancyQuotes                           : logi FALSE
  ..$ verbose                                  : logi FALSE
  ..$ warn                                     : int 0
  ..$ warnPartialMatchArgs                     : logi FALSE
  ..$ warnPartialMatchAttr                     : logi FALSE
  ..$ warnPartialMatchDollar                   : logi FALSE
  ..$ warning.length                           : int 1000
  ..$ width                                    : int 80
  ..$ windowsTimeouts                          : int [1:2] 100 500
 $ devs : NULL
 $ plan :List of 1
  ..$ :function (..., envir = parent.frame())  
  .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
Removing newly added variables: 'db_state', 'res', 'stack', 'stop_if_not'
- stack depth: 2
db_state('pop') ... done
> str(res)
 NULL
> 
> stack <- db_state("list")
db_state('list') ...
- stack depth: 2
> str(stack)
List of 2
 $ :List of 7
  ..$ title: chr "abc"
  ..$ envir:<environment: R_GlobalEnv> 
  ..$ vars :List of 4
  .. ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  .. ..$ res        : NULL
  .. ..$ stack      :List of 1
  .. .. ..$ :List of 7
  .. .. .. ..$ title: NULL
  .. .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. .. ..$ vars : chr(0) 
  .. .. .. ..$ envs : list()
  .. .. .. ..$ opts : list()
  .. .. .. ..$ devs : NULL
  .. .. .. ..$ plan : NULL
  .. ..$ stop_if_not:function (...)  
  ..$ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  .. ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
  ..$ opts :List of 78
  .. ..$ CBoundsCheck                             : logi FALSE
  .. ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  .. ..$ OutDec                                   : chr "."
  .. ..$ PCRE_limit_recursion                     : logi NA
  .. ..$ PCRE_study                               : logi FALSE
  .. ..$ PCRE_use_JIT                             : logi TRUE
  .. ..$ add.smooth                               : logi TRUE
  .. ..$ browser                                  : chr "false"
  .. ..$ browserNLdisabled                        : logi FALSE
  .. ..$ callr.condition_handler_cli_message      :function (msg)  
  .. ..$ catch.script.errors                      : logi FALSE
  .. ..$ check.bounds                             : logi FALSE
  .. ..$ citation.bibtex.max                      : int 1
  .. ..$ continue                                 : chr "+ "
  .. ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  .. ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  .. ..$ demo.ask                                 : chr "default"
  .. ..$ deparse.cutoff                           : int 60
  .. ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  .. ..$ device.ask.default                       : logi FALSE
  .. ..$ digits                                   : int 7
  .. ..$ echo                                     : logi TRUE
  .. ..$ editor                                   : chr "notepad"
  .. ..$ encoding                                 : chr "native.enc"
  .. ..$ example.ask                              : chr "default"
  .. ..$ expressions                              : int 5000
  .. ..$ future.tests.debug                       : logi TRUE
  .. ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  .. ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  .. ..$ help.try.all.packages                    : logi FALSE
  .. ..$ install.packages.compile.from.source     : chr "interactive"
  .. ..$ internet.info                            : int 2
  .. ..$ keep.parse.data                          : logi TRUE
  .. ..$ keep.parse.data.pkgs                     : logi FALSE
  .. ..$ keep.source                              : logi FALSE
  .. ..$ keep.source.pkgs                         : logi FALSE
  .. ..$ locatorBell                              : logi TRUE
  .. ..$ mailer                                   : chr "mailto"
  .. ..$ matprod                                  : chr "default"
  .. ..$ max.contour.segments                     : int 25000
  .. ..$ max.print                                : int 99999
  .. ..$ mc.cores                                 : int 2
  .. ..$ menu.graphics                            : logi TRUE
  .. ..$ na.action                                : chr "na.omit"
  .. ..$ nwarnings                                : int 50
  .. ..$ pager                                    : chr "internal"
  .. ..$ papersize                                : chr "a4"
  .. ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  .. ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  .. ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  .. ..$ parallelly.makeNodePSOCK.timeout         : num 120
  .. ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  .. ..$ pkgType                                  : chr "both"
  .. ..$ prompt                                   : chr "> "
  .. ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. .. ..- attr(*, "names")= chr "CRAN"
  .. ..$ scipen                                   : int 0
  .. ..$ show.coef.Pvalues                        : logi TRUE
  .. ..$ show.error.messages                      : logi TRUE
  .. ..$ show.signif.stars                        : logi TRUE
  .. ..$ showErrorCalls                           : logi TRUE
  .. ..$ showNCalls                               : int 50
  .. ..$ showWarnCalls                            : logi FALSE
  .. ..$ str                                      :List of 7
  .. .. ..$ strict.width     : chr "no"
  .. .. ..$ digits.d         : int 3
  .. .. ..$ vec.len          : int 4
  .. .. ..$ list.len         : int 99
  .. .. ..$ deparse.lines    : NULL
  .. .. ..$ drop.deparse.attr: logi TRUE
  .. .. ..$ formatNum        :function (x, ...)  
  .. ..$ str.dendrogram.last                      : chr "`"
  .. ..$ timeout                                  : int 60
  .. ..$ ts.S.compat                              : logi FALSE
  .. ..$ ts.eps                                   : num 1e-05
  .. ..$ unzip                                    : chr "internal"
  .. ..$ useFancyQuotes                           : logi FALSE
  .. ..$ verbose                                  : logi FALSE
  .. ..$ warn                                     : int 0
  .. ..$ warnPartialMatchArgs                     : logi FALSE
  .. ..$ warnPartialMatchAttr                     : logi FALSE
  .. ..$ warnPartialMatchDollar                   : logi FALSE
  .. ..$ warning.length                           : int 1000
  .. ..$ width                                    : int 80
  .. ..$ windowsTimeouts                          : int [1:2] 100 500
  ..$ devs : NULL
  ..$ plan :List of 1
  .. ..$ :function (..., envir = parent.frame())  
  .. .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  .. ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> stop_if_not(length(stack) == 2L)
NULL
> 
> res <- db_state("pop")
db_state('pop') ...
- stack depth: 2
List of 7
 $ title: chr "abc"
 $ envir:<environment: R_GlobalEnv> 
 $ vars :List of 4
  ..$ db_state   :function (action = c("reset", "list", "push", "pop"), title = NULL, envir = parent.frame())  
  ..$ res        : NULL
  ..$ stack      :List of 1
  .. ..$ :List of 7
  .. .. ..$ title: NULL
  .. .. ..$ envir:<environment: 0x000001ce3786fed8> 
  .. .. ..$ vars : chr(0) 
  .. .. ..$ envs : list()
  .. .. ..$ opts : list()
  .. .. ..$ devs : NULL
  .. .. ..$ plan : NULL
  ..$ stop_if_not:function (...)  
 $ envs : 'Dlist' Named chr [1:210] "00000000" "C:\\ProgramData" "C:\\Users\\CRAN\\AppData\\Roaming" ".;.;.;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/recent/R/share/texmf/bibtex/bib;;D:/RCompile/re"| __truncated__ ...
  ..- attr(*, "names")= chr [1:210] "!ExitCode" "ALLUSERSPROFILE" "APPDATA" "BIBINPUTS" ...
 $ opts :List of 78
  ..$ CBoundsCheck                             : logi FALSE
  ..$ HTTPUserAgent                            : chr "R (4.5.0 x86_64-w64-mingw32 x86_64 mingw32)"
  ..$ OutDec                                   : chr "."
  ..$ PCRE_limit_recursion                     : logi NA
  ..$ PCRE_study                               : logi FALSE
  ..$ PCRE_use_JIT                             : logi TRUE
  ..$ add.smooth                               : logi TRUE
  ..$ browser                                  : chr "false"
  ..$ browserNLdisabled                        : logi FALSE
  ..$ callr.condition_handler_cli_message      :function (msg)  
  ..$ catch.script.errors                      : logi FALSE
  ..$ check.bounds                             : logi FALSE
  ..$ citation.bibtex.max                      : int 1
  ..$ continue                                 : chr "+ "
  ..$ contrasts                                : Named chr [1:2] "contr.treatment" "contr.poly"
  .. ..- attr(*, "names")= chr [1:2] "unordered" "ordered"
  ..$ defaultPackages                          : chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
  ..$ demo.ask                                 : chr "default"
  ..$ deparse.cutoff                           : int 60
  ..$ device                                   :function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, 
    height, onefile, family, title, fonts, version, paper, encoding, bg, 
    fg, pointsize, pagecentre, colormodel, useDingbats, useKerning, fillOddEven, 
    compress, timestamp, producer, author)  
  ..$ device.ask.default                       : logi FALSE
  ..$ digits                                   : int 7
  ..$ echo                                     : logi TRUE
  ..$ editor                                   : chr "notepad"
  ..$ encoding                                 : chr "native.enc"
  ..$ example.ask                              : chr "default"
  ..$ expressions                              : int 5000
  ..$ future.tests.debug                       : logi TRUE
  ..$ future.tests.undo                        : chr [1:5] "envvars" "graphics" "objects" "options" ...
  ..$ help.search.types                        : chr [1:3] "vignette" "demo" "help"
  ..$ help.try.all.packages                    : logi FALSE
  ..$ install.packages.compile.from.source     : chr "interactive"
  ..$ internet.info                            : int 2
  ..$ keep.parse.data                          : logi TRUE
  ..$ keep.parse.data.pkgs                     : logi FALSE
  ..$ keep.source                              : logi FALSE
  ..$ keep.source.pkgs                         : logi FALSE
  ..$ locatorBell                              : logi TRUE
  ..$ mailer                                   : chr "mailto"
  ..$ matprod                                  : chr "default"
  ..$ max.contour.segments                     : int 25000
  ..$ max.print                                : int 99999
  ..$ mc.cores                                 : int 2
  ..$ menu.graphics                            : logi TRUE
  ..$ na.action                                : chr "na.omit"
  ..$ nwarnings                                : int 50
  ..$ pager                                    : chr "internal"
  ..$ papersize                                : chr "a4"
  ..$ parallelly.makeNodePSOCK.autoKill        : logi TRUE
  ..$ parallelly.makeNodePSOCK.connectTimeout  : num 120
  ..$ parallelly.makeNodePSOCK.rscript_label   : chr "TRUE"
  ..$ parallelly.makeNodePSOCK.sessionInfo.pkgs: chr "TRUE"
  ..$ parallelly.makeNodePSOCK.timeout         : num 120
  ..$ pdfviewer                                : chr "D:/RCompile/recent/R/bin/x64/open.exe"
  ..$ pkgType                                  : chr "both"
  ..$ prompt                                   : chr "> "
  ..$ repos                                    : Named chr "https://bioconductor.statistik.tu-dortmund.de/cran"
  .. ..- attr(*, "names")= chr "CRAN"
  ..$ scipen                                   : int 0
  ..$ show.coef.Pvalues                        : logi TRUE
  ..$ show.error.messages                      : logi TRUE
  ..$ show.signif.stars                        : logi TRUE
  ..$ showErrorCalls                           : logi TRUE
  ..$ showNCalls                               : int 50
  ..$ showWarnCalls                            : logi FALSE
  ..$ str                                      :List of 7
  .. ..$ strict.width     : chr "no"
  .. ..$ digits.d         : int 3
  .. ..$ vec.len          : int 4
  .. ..$ list.len         : int 99
  .. ..$ deparse.lines    : NULL
  .. ..$ drop.deparse.attr: logi TRUE
  .. ..$ formatNum        :function (x, ...)  
  ..$ str.dendrogram.last                      : chr "`"
  ..$ timeout                                  : int 60
  ..$ ts.S.compat                              : logi FALSE
  ..$ ts.eps                                   : num 1e-05
  ..$ unzip                                    : chr "internal"
  ..$ useFancyQuotes                           : logi FALSE
  ..$ verbose                                  : logi FALSE
  ..$ warn                                     : int 0
  ..$ warnPartialMatchArgs                     : logi FALSE
  ..$ warnPartialMatchAttr                     : logi FALSE
  ..$ warnPartialMatchDollar                   : logi FALSE
  ..$ warning.length                           : int 1000
  ..$ width                                    : int 80
  ..$ windowsTimeouts                          : int [1:2] 100 500
 $ devs : NULL
 $ plan :List of 1
  ..$ :function (..., envir = parent.frame())  
  .. ..- attr(*, "class")= chr [1:4] "sequential" "uniprocess" "future" "function"
  ..- attr(*, "class")= chr [1:2] "FutureStrategyList" "list"
Removing newly added options: 'foo'
Removing newly added environment variables: 'BAR'
Removing newly added variables: 'db_state', 'res', 'stack', 'stop_if_not'
- stack depth: 1
db_state('pop') ... done
> str(res)
 NULL
> 
> stack <- db_state("list")
db_state('list') ...
- stack depth: 1
> str(stack)
List of 1
 $ :List of 7
  ..$ title: NULL
  ..$ envir:<environment: 0x000001ce3786fed8> 
  ..$ vars : chr(0) 
  ..$ envs : list()
  ..$ opts : list()
  ..$ devs : NULL
  ..$ plan : NULL
> stop_if_not(length(stack) == 1L)
NULL
> 
> message("*** db_state() ... DONE")
*** db_state() ... DONE
> 
> proc.time()
   user  system elapsed 
   3.35    0.20    3.54