R/obter_conexao.R

Defines functions obter_conexao

Documented in obter_conexao

#' 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)
}
hersonpc/RISGMv documentation built on Aug. 26, 2020, 9:30 a.m.