jonkeane commented on a change in pull request #11032:
URL: https://github.com/apache/arrow/pull/11032#discussion_r723271478
##########
File path: r/R/duckdb.R
##########
@@ -118,3 +118,38 @@ duckdb_disconnector <- function(con, tbl_name) {
})
environment()
}
+
+#' Create an Arrow object from others
+#'
+#' This can be used in pipelines that pass data back and forth between Arrow
and
+#' other processes (like DuckDB).
+#'
+#' @param .data the object to be converted
+#' @param as_table should the results be materialized as a table? (default:
TRUE)
+#'
+#' @return an `arrow_dplyr_query` object, to be used in dplyr pipelines.
+#' @export
+#'
+#' @examplesIf getFromNamespace("run_duckdb_examples", "arrow")()
+#' library(dplyr)
+#'
+#' ds <- InMemoryDataset$create(mtcars)
+#'
+#' ds %>%
+#' filter(mpg < 30) %>%
+#' to_duckdb() %>%
+#' group_by(cyl) %>%
+#' summarize(mean_mpg = mean(mpg, na.rm = TRUE)) %>%
+#' to_arrow() %>%
+#' collect()
+to_arrow <- function(.data, as_table = TRUE) {
+ # TODO: figure out WTAF .data is before just doing stuff
Review comment:
I will also do this, since at the very least we should gate this to
`tbl`s that are backed by duckdb connections.
There might be a few other options for things we could accept here too, in
principle we could accept a `DBIResult` (again, backed by duckdb) which would
make it easier to send SQL and avoid dbplyr totally.
--
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.
To unsubscribe, e-mail: [email protected]
For queries about this service, please contact Infrastructure at:
[email protected]
