cat("\nexecuting script's path:\n")
cat(sQuote(this.path::sys.path(verbose = TRUE)), "\n\n", sep = "")
cat("\nexecuting script's directory:\n")
cat(sQuote(this.path::sys.dir(verbose = TRUE)), "\n\n", sep = "")
cat("\ntesting 'sys.here()':\n")
cat('\n> this.path::sys.here("test.R")\n')
print( this.path::sys.here("test.R"))
cat('\n> this.path::sys.here(.. = 1, "R", "thispath.R")\n')
print( this.path::sys.here(.. = 1, "R", "thispath.R"))
cat("\n\n\n\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.