R Under development (unstable) (2023-08-05 r84874 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

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

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

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

> this.path:::.write.code({
+     this.path:::.withAutoprint({
+         this.path::sys.path(original = TRUE)
+         this.path::sys.path(original = NA)
+         writeLines(sQuote(this.path::sys.path(verbose = TRUE)))
+         this.path::sys.path(original = TRUE)
+         this.path::sys.path(original = NA)
+     }, spaced = TRUE, verbose = FALSE, width.cutoff = 60L)
+ }, FILE <- tempfile(fileext = ".R"))
> 
> 
> source(FILE, environment(), verbose = FALSE)

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> writeLines(sQuote(this.path::sys.path(verbose = TRUE)))
Source: call to function source
'D:/temp/RtmpWmaVxk/file3ad07d756237.R'

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:/temp/RtmpWmaVxk/file3ad07d756237.R"
> sys.source(FILE, environment())

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> writeLines(sQuote(this.path::sys.path(verbose = TRUE)))
Source: call to function sys.source
'D:/temp/RtmpWmaVxk/file3ad07d756237.R'

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:/temp/RtmpWmaVxk/file3ad07d756237.R"
> if (.Platform$GUI == "RStudio")
+     debugSource(FILE, local = environment())
> if (requireNamespace("testthat", quietly = TRUE))
+     testthat::source_file(FILE, environment(), chdir = FALSE, wrap = FALSE)
> this.path:::.Rscript(c("--default-packages=this.path", "--vanilla", FILE))
"D:/RCompile/recent/R/bin/x64/Rscript.exe" "--default-packages=this.path" "--vanilla" "D:\temp\RtmpWmaVxk\file3ad07d756237.R"

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> writeLines(sQuote(this.path::sys.path(verbose = TRUE)))
Source: shell argument 'FILE'
'D:/temp/RtmpWmaVxk/file3ad07d756237.R'

> this.path::sys.path(original = TRUE)
[1] "D:\\temp\\RtmpWmaVxk\\file3ad07d756237.R"

> this.path::sys.path(original = NA)
[1] "D:/temp/RtmpWmaVxk/file3ad07d756237.R"
> 
> 
> unlink(FILE)
> 
> proc.time()
   user  system elapsed 
   0.17    0.03    0.37