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.

> cat("\nexecuting script's path:\n")

executing script's path:
> cat(sQuote(this.path::sys.path(verbose = TRUE)), "\n\n", sep = "")
Source: shell argument 'FILE'
'D:/RCompile/CRANincoming/R-devel/this.path.Rcheck/tests/sys-path-with-urls.R'

> 
> 
> cat("\nexecuting script's directory:\n")

executing script's directory:
> cat(sQuote(this.path::sys.dir(verbose = TRUE)), "\n\n", sep = "")
Source: shell argument 'FILE'
'D:/RCompile/CRANincoming/R-devel/this.path.Rcheck/tests'

> 
> 
> cat("\ntesting 'sys.here()':\n")

testing 'sys.here()':
> cat('\n> this.path::sys.here("test.R")\n')

> this.path::sys.here("test.R")
> print(   this.path::sys.here("test.R"))
[1] "D:/RCompile/CRANincoming/R-devel/this.path.Rcheck/tests/test.R"
> cat('\n> this.path::sys.here(.. = 1, "R", "thispath.R")\n')

> this.path::sys.here(.. = 1, "R", "thispath.R")
> print(   this.path::sys.here(.. = 1, "R", "thispath.R"))
[1] "D:/RCompile/CRANincoming/R-devel/this.path.Rcheck/R/thispath.R"
> 
> 
> cat("\n\n\n\n")




> 
> proc.time()
   user  system elapsed 
   0.10    0.04    0.15