R/dbCreateTableArrow_DBIConnection.R

In r-dbi/DBI: R Database Interface

#' @rdname hidden_aliases
#' @usage NULL
dbCreateTableArrow_DBIConnection <- function(conn, name, value, ..., temporary = FALSE) {
  require_arrow()

  # https://github.com/apache/arrow-nanoarrow/issues/347
  if (!inherits(value, "nanoarrow_schema")) {
    value <- nanoarrow::infer_nanoarrow_schema(value)
  }

  ptype <- nanoarrow::infer_nanoarrow_ptype(value)
  dbCreateTable(conn, name, ptype, ..., temporary = temporary)
}

#' @rdname hidden_aliases
#' @export
setMethod("dbCreateTableArrow", signature("DBIConnection"), dbCreateTableArrow_DBIConnection)