R/connection.database.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

#' Database connections
#'
#' @param x # input parameter for database


connection.database <- function(x) {
	if(x == "prod"){
		connection <- "jdbc:oracle:thin:@tkgprod:1521:EARDBPD"
	} else if(x == "am"){
		connection <- "jdbc:oracle:thin:@tkgenteab:1521:EARDBAM"
	} else {
		connection <- "jdbc:oracle:thin:@tkgenteab:1521:EARDBAP"
	}
	return(connection)
}