R/dbAppendTable_SQLiteConnection.R

In rstats-db/RSQLite: SQLite Interface for R

#' @rdname SQLiteConnection-class
#' @usage NULL
dbAppendTable_SQLiteConnection <- function(conn, name, value, ...,
                                           row.names = NULL) {
  savepoint_id <- get_savepoint_id("dbAppendTable")
  dbBegin(conn, name = savepoint_id)
  on.exit(dbRollback(conn, name = savepoint_id))

  out <- callNextMethod()

  on.exit(NULL)
  dbCommit(conn, name = savepoint_id)

  out
}
#' @rdname SQLiteConnection-class
#' @export
setMethod("dbAppendTable", "SQLiteConnection", dbAppendTable_SQLiteConnection)