formatSource <- function() {
context <- rstudioapi::getActiveDocumentContext()
formatted <- formatR::tidy_source(text = context$contents, output = FALSE)
contents <- paste0(formatted$text.tidy, collapse = "\n")
rstudioapi::setDocumentContents(contents, id = context$id)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.