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

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

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

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

> options(startup.dryrun = TRUE)
> 
> message("*** api() ...")
*** api() ...
> 
> message("*** api()")
*** api()
> api <- startup:::api()
> stopifnot(is.list(api), length(api) > 0)
> 
> message("*** renviron_d()")
*** renviron_d()
> res <- startup::renviron_d()
> stopifnot(all.equal(res, api))
> 
> message("*** rprofile_d()")
*** rprofile_d()
> res <- startup::rprofile_d()
> stopifnot(all.equal(res, api))
> 
> res <- startup::rprofile_d(all = TRUE)
> 
> message("*** startup(unload = FALSE)")
*** startup(unload = FALSE)
> res <- startup::startup(unload = FALSE)
Warning messages:
1: startup::check(): Environment variable 'R_LIBS_SITE' specifies a non-existing folder ''NULL'' (expands to 'd:\RCompile\CRANincoming\R-devel\startup.Rcheck\tests\'NULL'') which R ignores and therefore are not used in .libPaths(). To create this folder, call dir.create("'NULL'", recursive = TRUE) 
2: startup::check(): Environment variable 'R_LIBS_USER' specifies a non-existing folder ''NULL'' (expands to 'd:\RCompile\CRANincoming\R-devel\startup.Rcheck\tests\'NULL'') which R ignores and therefore are not used in .libPaths(). To create this folder, call dir.create("'NULL'", recursive = TRUE) 
3: startup::check(): Environment variable 'R_ENVIRON_USER' specifies a non-existing startup file ''no_such_file'' (expands to 'd:\RCompile\CRANincoming\R-devel\startup.Rcheck\tests\'no_such_file'') which R will silently ignore 
> stopifnot(all.equal(res, api))
> 
> message("*** startup(debug = TRUE)")
*** startup(debug = TRUE)
> ## Fake some settings / calls to cover more code
> options(startup.debug.commandArgs = commandArgs()[1])
> save.image(file = ".RData")
> res <- startup::startup(debug = TRUE)
0.000s: System information:
0.001s: - R_HOME: 'D:/RCompile/recent/R' (existing folder)
0.002s: - R call: D:\RCompile\recent\R/bin/x64/Rterm.exe -f api.R --restore --save --vanilla
0.002s: - Current directory: 'd:/RCompile/CRANincoming/R-devel/startup.Rcheck/tests'
0.003s: - User's home directory: '~' => 'C:\Users\CRAN\Documents' (existing folder)
0.003s: - User's 'startup' config directory: 'C:\Users\CRAN\AppData\Local\R\config\R\startup' (non-existing directory)
0.003s: - Search path: '.GlobalEnv', 'package:stats', 'package:graphics', 'package:grDevices', 'package:utils', 'package:datasets', 'package:methods', 'Autoloads', 'package:base'
0.004s: - Loaded namespaces: 'compiler', 'startup', 'graphics', 'tools', 'utils', 'grDevices', 'stats', 'datasets', 'methods', 'base'
0.004s: The following has already been processed by R:
0.004s: - R_ENVIRON: ''
0.005s: - R_ENVIRON_USER: ''no_such_file'' (non-existing file)
0.005s: - tempdir(): 'D:\temp\RtmpkDrFb6' (existing folder)
0.006s:   - TMPDIR: 'D:\temp'
0.006s:   - TMP: 'D:\temp'
0.006s:   - TEMP: 'D:\temp'
0.006s: - R_LIBS: 'D:\temp\RtmpkfOomm\RLIBS_deb06382394b'
0.006s: - R_LIBS_SITE: ''NULL''
0.006s: - R_LIBS_USER: ''NULL''
0.007s: - R_SCRIPT_DEFAULT_PACKAGES (only if Rscript was used): ''
0.007s: - R_DEFAULT_PACKAGES: '' (= 'base,methods,datasets,utils,grDevices,graphics,stats')
0.009s: - 'D:/RCompile/recent/R/library/base/R/Rprofile' (157 code lines; 7426 bytes)
0.009s: - R_PROFILE: ''
0.009s: - R_PROFILE_USER: ''
0.011s: - R_TESTS: 'startup.Rs' (1 code lines; 131 bytes)
0.011s: startup::startup()-specific processing ...
0.018s: - unloading the 'startup' package
0.018s: - Search path: '.GlobalEnv', 'package:stats', 'package:graphics', 'package:grDevices', 'package:utils', 'package:datasets', 'package:methods', 'Autoloads', 'package:base'
0.018s: - Loaded namespaces: 'compiler', 'graphics', 'tools', 'utils', 'grDevices', 'stats', 'datasets', 'methods', 'base'
0.018s: startup::startup()-specific processing ... done
0.018s: The following will be processed next by R:
0.019s: - R_HISTFILE: ''
0.019s: - .First(): no such function on search()
0.019s: - Remaining packages per R_DEFAULT_PACKAGES to be attached by base::.First.sys() (in order): 
0.019s: - The R just-in-time (JIT) compiler:
0.019s:   - R_ENABLE_JIT: <not set>
0.020s:   - JIT compiler enabled by default
0.020s: The following will be processed when R terminates:
0.020s: - .Last(): no such function on search()
0.020s: - .Last.sys(): in 'package:base' (position 9 on search()); circumvented by quit(runLast = FALSE)
> str(res)
List of 3
 $ renviron_d:function (sibling = FALSE, all = FALSE, unload = FALSE, skip = NA, dryrun = NA, 
    debug = NA, paths = NULL)  
 $ rprofile_d:function (sibling = FALSE, all = FALSE, check = NA, unload = FALSE, skip = NA, 
    on_error = c("error", "warning", "immediate.warning", "message", "ignore"), 
    dryrun = NA, debug = NA, paths = NULL)  
 $ unload    :function (debug = FALSE)  
> stopifnot(all.equal(res, api))
> file.remove(".RData")
[1] TRUE
> options(startup.debug.commandArgs = NULL)
> 
> options(startup.dryrun = FALSE)
> 
> message("*** api() ... DONE")
*** api() ... DONE
> 
> rm(list = c("api", "res"))
> 
> proc.time()
   user  system elapsed 
   0.10    0.09    0.20