Nothing
message("*** find_files() ...")
pn <- startup:::find_rprofile()
print(pn)
pn <- startup:::find_rprofile(all = TRUE)
print(pn)
pn <- startup:::find_renviron()
print(pn)
pn <- startup:::find_renviron(all = TRUE)
print(pn)
pn <- startup:::find_rprofile_d()
print(pn)
pn <- startup:::find_rprofile_d(all = TRUE)
print(pn)
pn <- startup:::find_rprofile_d(sibling = TRUE, all = TRUE)
print(pn)
pn <- startup:::find_renviron_d()
print(pn)
pn <- startup:::find_renviron_d(all = TRUE)
print(pn)
pn <- startup:::find_renviron_d(sibling = TRUE, all = TRUE)
print(pn)
path <- system.file(package = "startup")
paths <- file.path(path, c(".Renviron.d", ".Rprofile.d"))
pn <- startup:::list_d_files(paths = paths)
print(pn)
message("*** find_files() ... DONE")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.