pkg_read_lines <- function(..., values = list()) {
txt <- readLines(system.file(..., package = "branchMover"))
txt <- paste0(txt, collapse = "\n")
if (length(values)) {
glue::glue_data(values, txt)
} else {
txt
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.