Skip to content
Snippets Groups Projects

Resolve "Faire une BDD minimale"

Merged Laurent BEAULATON requested to merge 23-faire-une-bdd-minimale-2 into develop0.6.0
Compare and
10 files
+ 68
55
Compare changes
  • Side-by-side
  • Inline
Files
10
+ 37
3
require("RPostgreSQL")
require("sqldf")
options(sqldf.RPostgreSQL.user = "postgres",
sqldf.RPostgreSQL.password = "postgres",
options(
sqldf.RPostgreSQL.user = "stacomi_test",
sqldf.RPostgreSQL.password = "stacomi_test",
sqldf.RPostgreSQL.dbname = "bd_contmig_nat",
sqldf.RPostgreSQL.host = "host_db",
sqldf.RPostgreSQL.port = 5432)
sqldf.RPostgreSQL.port = 5432
)
check_postgres_connection <- function(
host = getOption("sqldf.RPostgreSQL.host"),
port = getOption("sqldf.RPostgreSQL.port"),
dbname = getOption("sqldf.RPostgreSQL.dbname"),
user = getOption("sqldf.RPostgreSQL.user"),
password = getOption("sqldf.RPostgreSQL.password"),
timeout = 3
) {
tryCatch(
{
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv,
host = host,
port = port,
dbname = dbname,
user = user,
password = password
)
dbDisconnect(con)
return(TRUE)
},
error = function(e) {
return(FALSE)
}
)
}
cat("Waiting postgresql\n")
while(check_postgres_connection() == FALSE)
cat(".")
cat("###################")
cat("Version postgresql")
Loading