library(formatR)
setwd("../R")
files <- list.files()
for (f in files) {
tidy_source(source = f, file = f, arrow = TRUE, width.cutoff = 79)
}
setwd("../tests/testthat")
files <- list.files()
for (f in files) {
tidy_source(source = f, file = f, arrow = TRUE, width.cutoff = 79)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.