R/dbAppendTable_AdbiConnection_character_data.frame.R

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

#' @rdname AdbiConnection-class
#' @usage NULL
dbAppendTable_AdbiConnection <- function(conn, name, value, ...,
    row.names = NULL) {

  if (!is.null(row.names)) {
    stop("Can't pass `row.names` to `dbAppendTable()`", call. = FALSE)
  }

  query <- sqlAppendTable(
    con = conn,
    table = name,
    values = value,
    row.names = row.names,
    ...
  )

  dbExecute(conn, query)
}

#' @rdname AdbiConnection-class
#' @export
setMethod(
  "dbAppendTable",
  signature("AdbiConnection"),
  dbAppendTable_AdbiConnection
)