Cleaner implementation of has_postgres()

tidyverse · Mar 8, 2016 · 12b910f · 12b910f
1 parent 33a9e8c
commit 12b910f
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/R/src-postgres.r b/R/src-postgres.r
@@ -110,11 +110,15 @@ src_postgres <- function(dbname = NULL, host = NULL, port = NULL, user = NULL,
 
 
 has_postgres <- function(...) {
-  ok <- succeeds(src <- src_postgres(...), quiet = TRUE)
-  if (ok) {
-    dbDisconnect(src$con)
-  }
-  ok
+  tryCatch(
+    {
+      src <- src_postgres(...)
+      dbDisconnect(src$con)
+      TRUE
+    },
+    error = function(e) {
+      FALSE
+  })
 }
 
 #' @export