Merge pull request #461 from r-dbi/f-exists-table

chore: Use `Id` in `exists_table()`
r-dbi · Apr 1, 2024 · e93306e · e93306e
2 parents bb945a1 + c07c658
commit e93306e
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/R/dbExistsTable_PqConnection_Id.R b/R/dbExistsTable_PqConnection_Id.R
@@ -1,7 +1,7 @@
 #' @rdname postgres-tables
 #' @usage NULL
 dbExistsTable_PqConnection_Id <- function(conn, name, ...) {
-  exists_table(conn, id = name@name)
+  exists_table(conn, id = name)
 }
 
 #' @rdname postgres-tables

diff --git a/R/dbExistsTable_PqConnection_character.R b/R/dbExistsTable_PqConnection_character.R
@@ -5,7 +5,7 @@ dbExistsTable_PqConnection_character <- function(conn, name, ...) {
   name <- dbQuoteIdentifier(conn, name)
 
   # Convert to identifier
-  id <- dbUnquoteIdentifier(conn, name)[[1]]@name
+  id <- dbUnquoteIdentifier(conn, name)[[1]]
   exists_table(conn, id)
 }
 

diff --git a/R/tables.R b/R/tables.R
@@ -121,9 +121,11 @@ db_append_table <- function(conn, name, value, copy, warn) {
 }
 
 exists_table <- function(conn, id) {
+  name <- id@name
+
   query <- paste0(
     "SELECT COUNT(*) FROM ",
-    find_table(conn, id)
+    find_table(conn, name)
   )
 
   dbGetQuery(conn, query)[[1]] >= 1