Use retry to wait for postgres db to be available

Author: r-ash

.github/workflows/test-coverage.yaml

@@ -58,7 +58,5 @@ jobs:
 
       - name: Test coverage
         run: |
-          # Wait for postgres db to accept connections
-          Sys.sleep(5)
           covr::codecov()
         shell: Rscript {0}

DESCRIPTION

@@ -21,6 +21,7 @@ Suggests:
     ggplot2,
     knitr,
     testthat,
+    retry,
     rmarkdown,
     RSQLite,
     withr

tests/testthat/helper-db.R

@@ -9,7 +9,11 @@ get_db_info <- function() {
 prepare_example_postgres_db <- function() {
   info <- get_db_info()
   tryCatch({
-    con <- get_postgres_connection(info$dbname, info$user, info$host)
+    con <- retry::retry(
+      get_postgres_connection(info$dbname, info$user, info$host),
+      until = function(val, cnd) !is.null(val),
+      max_tries = 25,
+      interval = 0.2)
     add_dummy_data(con)
     DBI::dbDisconnect(con)
   }, error = function(e) {