Merge pull request #152 from ssi-dk/fix/get_table-robust

Simplify `get_table()` checks

.github/workflows/all-workflows.yaml

@@ -34,4 +34,5 @@ jobs:
 
       # code-coverage creates data bases for the tests. Here you can specify the schemas you need for the workflow
       schemas: test,test.one
+      check_postgres_logs: false
     secrets: inherit

R/get_table.R

@@ -43,13 +43,12 @@ get_table <- function(conn, db_table = NULL, slice_ts = NA, include_slice_info =
   # Ensure id is fully qualified
   db_table_id <- id(db_table, conn = conn)
 
-  # Ensure existence of table
-  if (!table_exists(conn, db_table_id)) {
-    rlang::abort(glue::glue("Table {as.character(db_table_id)} could not be found!"))
-  }
-
   # Look-up table in database
-  q <- dplyr::tbl(conn, db_table_id)
+  tryCatch({
+    q <- dplyr::tbl(conn, db_table_id)
+  }, error = function(e) {
+    stop(glue::glue("Table {as.character(db_table_id)} could not be found!"))
+  })
 
   # Check whether data is historical
   if (is.historical(q) && !is.null(slice_ts)) {