Work around r-lib/vctrs#1419

Author: krlmlr

R/as_tibble.R

@@ -293,7 +293,7 @@ as_tibble_row <- function(x,
   if (is_bare_list(x)) {
     slices <- x
   } else {
-    x <- vec_set_names(x, NULL)
+    x <- vectbl_set_names(x, NULL)
     slices <- lapply(seq_len(vec_size(x)), vec_slice, x = x)
     names(slices) <- names
   }

R/subsetting.R

@@ -131,7 +131,7 @@ NULL
       x
     } else {
       # Drop inner names with double subscript
-      vec_set_names(vec_slice(x, i), NULL)
+      vectbl_set_names(vec_slice(x, i), NULL)
     }
   }
 }

R/tbl_df.R

@@ -72,7 +72,7 @@ NULL
 as.data.frame.tbl_df <- function(x, row.names = NULL, optional = FALSE, ...) {
   class(x) <- "data.frame"
   unname <- which(!map_lgl(x, is_bare_list))
-  x[unname] <- map(x[unname], vec_set_names, NULL)
+  x[unname] <- map(x[unname], vectbl_set_names, NULL)
   x
 }
 

tests/testthat/test-subsetting.R

@@ -373,6 +373,9 @@ test_that("[[ drops inner names only with double subscript (#681)", {
   expect_identical(df[[1, "b"]], data.frame(bb = 1))
   expect_identical(df[["c"]], c)
   expect_null(rownames(df[[1, "c"]]))
+
+  df <- tibble(x = new_rcrd(list(a = 1:3)))
+  expect_identical(df[[1, "x"]], new_rcrd(list(a = 1L)))
 })
 
 test_that("can use two-dimensional indexing with [[", {

tests/testthat/test-tbl_df.R

@@ -13,6 +13,11 @@ test_that("as.data.frame() keeps inner names for lists (#837)", {
   expect_identical(as.data.frame(tbl)$a, list(b = 1:3))
 })
 
+test_that("as.data.frame() keeps inner names for records", {
+  tbl <- tibble(x = new_rcrd(list(a = 1:3)))
+  expect_identical(as.data.frame(tbl)$x, new_rcrd(list(a = 1:3)))
+})
+
 test_that("names<-()", {
   new_tbl <- function(...) {
     data <- list(1, "b")