Resolve "Faire une BDD minimale"

Closes #23 (closed)

gitlab-ci/R/test_BDD.R

 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")