R/dbExistsTable.R

In ropensci/dittodb: A Test Environment for Database Requests

.dbExistsTable <- function(conn, name, ...) {
  name <- sanitize_table_id(name, ...)
  return(list_helper(glue::glue("dbExistsTable-{name}"), conn, ...))
}

#' @rdname mock-db-methods
#' @export
setMethod(
  "dbExistsTable",
  signature("DBIMockConnection", "character"),
  .dbExistsTable
)

#' @rdname mock-db-methods
#' @export
setMethod(
  "dbExistsTable",
  signature("DBIMockConnection", "Id"),
  .dbExistsTable
)