insertLine <- function(dashnb) {
# Build the dash line
line = paste0("#", paste0(rep("-",dashnb), collapse = ""))
# Insert the line into current script
rstudioapi::insertText(line)
}
insertDashLine <- function(){
insertLine(79)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.