#' Ler um arquivo e obtem seu conteudo
#'
#' @author Herson Melo
#' @param filename Caminho do arquivo a ser lido
#' @return Conteudo do arquivo
#' @export
ler_arquivo <- function(filename) {
if(!file.exists(filename))
stop(paste0("SQL file not found: ", filename))
# Lendo o arquivo...
con <- file(filename, "r")
texto <- ""
while (TRUE) {
line <- readLines(con, n = 1, warn = FALSE)
if ( length(line) == 0 ) { break }
line <- gsub("\\t", " ", line)
if(grepl("--", line) == TRUE)
{
line <- paste(sub("--", "/*", line), "*/")
}
texto <- paste(texto, line)
}
close(con)
return (texto)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.