Nothing
## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ------------------------------------------------------------------------
library(pathlibr)
library(glue)
## ------------------------------------------------------------------------
root <- Path$new(system.file("", package = "pathlibr", mustWork = TRUE))
## ------------------------------------------------------------------------
root$show
## ------------------------------------------------------------------------
eg <- root$dir$example
print(glue("using dir: {eg$show}"))
eg <- root$.$example
print(glue("using '.': {eg$show}"))
## ------------------------------------------------------------------------
file <- eg$.$path$.$to$.$file1.txt
file
## ------------------------------------------------------------------------
file$parent
file$..
## ------------------------------------------------------------------------
file2 <- file$..$.$file2.txt
file2$show
## ------------------------------------------------------------------------
directory <- file$..
for (f in c("file1.txt", "file2.txt")){
print(glue("{f}:\n"))
directory$.[[f]]$show %>% readLines() %>% cat()
print(glue("\n"))
}
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.