Change data frame conversion method

Author: thisisnic

r/R/schema.R

@@ -467,7 +467,7 @@ as_schema.StructType <- function(x, ...) {
 
 #' @export
 as.data.frame.Schema <- function(x, row.names = NULL, optional = FALSE, ...) {
-  as.data.frame(Table__from_schema(x))
+  Table__from_schema(x)$to_data_frame()
 }
 
 #' @export

r/src/arrowExports.cpp

@@ -228,3 +228,16 @@ test_that("multiple select/rename and group_by", {
     tbl
   )
 })
+
+
+test_that("rename_with does not warn on columns with names metadata - GH48712", {
+  issue_tbl <- mutate(mtcars, cyl = setNames(cyl, nm = cyl))
+
+  out <- expect_no_warning(
+    arrow_table(issue_tbl) |>
+      rename_with(toupper) |>
+      collect()
+  )
+
+  expect_named(out, toupper(names(issue_tbl)))
+})