R/dbAppendTable_Connection_character_data.frame.R

In rstats-db/RKazam: Boilerplate for implementing a DBI back end

#' @rdname DBI
#' @usage NULL
dbAppendTable_KazamConnection <- function(conn, name, value, ..., row.names = NULL) {
  # FIXME: Remove when parameterized binding is implemented

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

  query <- sqlAppendTable(
    con = conn,
    table = name,
    values = value,
    row.names = row.names,
    ...
  )
  dbExecute(conn, query)
}
#' @rdname DBI
#' @export
setMethod("dbAppendTable", signature("KazamConnection"), dbAppendTable_KazamConnection)