Use tryCatch()

r-dbi · May 1, 2022 · c4e74a2 · c4e74a2
1 parent faee421
commit c4e74a2
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/R/dbConnect_PqDriver.R b/R/dbConnect_PqDriver.R
@@ -109,13 +109,12 @@ dbConnect_PqDriver <- function(drv, dbname = NULL,
   conn@timezone <- timezone
   conn@timezone_out <- timezone_out
 
-  typnames <- try(dbGetQuery(conn, "SELECT oid, typname FROM pg_type", immediate = TRUE), silent = TRUE)
-
-  if (inherits(typnames, "try-error")) {
-    typnames <- data.frame(typname = character(), oid = character())
-  }
-
-  conn@typnames <- typnames
+  conn@typnames <- tryCatch(
+    dbGetQuery(conn, "SELECT oid, typname FROM pg_type", immediate = TRUE),
+    error = function(e) {
+      data.frame(typname = character(), oid = character())
+    }
+  )
 
   on.exit(NULL)
   conn