feat: Add Id method to dbExistsTable()

[kjellpk]

Add an Id method to dbExistsTable. When a schema is present in the Id, check that schema is the name of an ATTACHed database and return FALSE if not.

I also made some tests but wasn't sure where to put them.

test_that("dbExistsTable works with compound Id", {
  expect_no_error(
    conn <- dbConnect(RSQLite::SQLite(), ":memory:")
  )

  expect_type(
    dbExistsTable(conn, Id(schema = "INFORMATION_SCHEMA",
                           table = "TABLES")),
    "logical"
  )

  expect_no_error(
    dbWriteTable(conn, "Iris", iris)
  )

  expect_true(
    dbExistsTable(conn, Id(schema = "main", table = "Iris"))
  )

  expect_true(
    dbExistsTable(conn, Id(able = "Iris"))
  )

  expect_false(
    dbExistsTable(conn, Id(schema = "mian", table = "Iris"))
  )

  expect_no_error(
    dbCreateTable(conn, "IrisTemp", iris, temporary = TRUE)
  )

  expect_false(
    dbExistsTable(conn, Id(schema = "temp", table = "Iris"))
  )

  expect_true(
    dbExistsTable(conn, Id(schema = "temp", table = "IrisTemp"))
  )

  expect_true(
    dbExistsTable(conn, Id(table = "IrisTemp"))
  )

  expect_no_error(
    dbDisconnect(conn)
  )
})

Closes #498.

[aviator-app]

Current Aviator status

Aviator will automatically update this comment as the status of the PR changes.
Comment /aviator refresh to force Aviator to re-examine your PR (or learn about other /aviator commands).

This PR was merged using Aviator.

---

See the real-time status of this PR on the Aviator webapp.

Use the Aviator Chrome Extension to see the status of your PR within GitHub.

[krlmlr]

Thanks. I'll need to review what other dbExistsTable() methods exist, to avoid weird S4 dispatch issues. I also wonder if this should be perhaps handled by DBI, at least in part.

[krlmlr]

Thanks!