#' Obtem os dados da conexao armazenada localmente
#'
#' @author Herson Melo
#' @param name Nome (Alias) da conexao armazenada
#' @return Dados de conexao para acesso ao banco de dados
#' @examples obter_conexao(name = "default")
obter_conexao <- function(name = "default") {
sqlite.filename <- file.path(Sys.getenv("HOME"), ".r", "risgmv.sqlite")
setup_ambiente_oracle()
if(!file.exists(sqlite.filename)) {
warning("Nenhum dado consta armazenado neste dispositivo")
return (NULL)
}
stringConexao <- NULL
tryCatch(
{
con = DBI::dbConnect(RSQLite::SQLite(), dbname = sqlite.filename)
stringConexao <- DBI::dbGetQuery(con, paste0('SELECT * FROM conexoes where name like "', tolower(name), '" '))
},
error = function(cond) {
warning("Erro ao consultar arquivo de dados, reconstrua-o pelo comando 'salvar_conexao()'")
# warning(cond)
}
)
DBI::dbDisconnect(con)
return (stringConexao)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.