Behave differently for data.frames

apache · Jan 4, 2023 · fadf40b · fadf40b
1 parent fd3fef1
commit fadf40b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/r/R/array.R b/r/R/array.R
@@ -441,7 +441,13 @@ StructArray <- R6Class("StructArray",
 )
 
 StructArray$create <- function(...) {
+
   args <- rlang::dots_list(..., .named = TRUE)
+
+  if (length(args) == 1 && is.data.frame(args[[1]])) {
+    return(Array$create(args[[1]]))
+  }
+
   batch <- record_batch(!!! args)
   array_ptr <- allocate_arrow_array()
   schema_ptr <- allocate_arrow_schema()