chore: Use Id in exists_table()

r-dbi · Apr 1, 2024 · c07c658 · c07c658
1 parent bb945a1
commit c07c658
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