R/dbRemoveTable_AdbiConnection_character.R

In adbi: 'DBI' Compliant Database Access Using 'ADBC'

#' @rdname AdbiConnection-class
#' @param fail_if_missing If `FALSE`, `dbRemoveTable()` succeeds if the
#'   table doesn't exist.
#' @inheritParams DBI::dbRemoveTable
#' @usage NULL
dbRemoveTable_AdbiConnection <- function(conn, name, ..., temporary = FALSE,
                                         fail_if_missing = TRUE) {

  name <- dbQuoteIdentifier(conn, name)

  sql <- paste0(
    "DROP ",
    if (temporary) "TEMPORARY ",
    "TABLE ",
    if (!fail_if_missing) "IF EXISTS ",
    name
  )

  dbExecute(conn, sql)

  invisible(TRUE)
}

#' @rdname AdbiConnection-class
#' @export
setMethod(
  "dbRemoveTable",
  c("AdbiConnection", "character"),
  dbRemoveTable_AdbiConnection
)