dbExistsTable always return FALSE

[willshen99]

dbExistsTable always return FALSE for name type either character or in_schema.

dbCreateTable(con, 'iris', iris, use.one.query=T)
dbExistsTable(con, 'iris') # FALSE
dbExistsTable(con, in_schema('new_schema', 'iris')) #FALSE

Looked into the codes in dbExistsTable, the issue is that table and schema names are not rendered correctly

RPresto/R/dbExistsTable.R

Lines 17 to 28 in 804c29a

	table_id <- DBI::dbQuoteIdentifier(conn, name)
	table_name <- DBI::dbUnquoteIdentifier(conn, table_id)[[1]]@name
	res <- DBI::dbGetQuery(
	conn,
	paste0("
	SELECT COUNT(*) AS n
	FROM information_schema.columns
	WHERE
	table_catalog = '", conn@catalog, "' AND
	table_schema = '", ifelse(!"schema" %in% names(table_name), conn@schema, table_name["schema"]), "' AND
	table_name = '", table_name["table"], "'
	")

The check sql executed is:

"\n        SELECT COUNT(*) AS n\n        FROM information_schema.columns\n        WHERE\n          table_catalog = 'hive' AND\n          table_schema = 'default' AND\n          table_name = 'NA'\n      "

Package Version:

DBI: 1.2.3
dbplyr: 2.4.0
RPresto: 1.4.6.9000

[willshen99]

This is a compatibility issue with DBI >= 1.2.0

DBI::dbUnquoteIdentifier starts to create Id() objects without component names after version 1.2.0, see this PR r-dbi/DBI#422.