1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#' @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
)
|
