#' read_text_file
#'
#' @param file_path TODO
#'
#' @return TODO
read_text_file <- function(file_path) {
x <- readChar(file_path, file.info(file_path)$size)
return(gsub("\r\n", "\n", x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.