Merge branch 'b-#330-new-tibble', closes #330

- Fix copying of attributes in `new_tibble()` (#330).

R/new.R

@@ -11,7 +11,7 @@ new_tibble <- function(x, ..., subclass = NULL) {
   attribs <- list(...)
 
   # reduce2() is not in the purrr compat layer
-  nested_attribs <- map2(names(attribs), attribs, function(name, value) list(name = value))
+  nested_attribs <- map2(names(attribs), attribs, function(name, value) set_names(list(value), name))
   x <- reduce(
     .init = x,
     nested_attribs,

tests/testthat/test-tbl-df.R

@@ -295,3 +295,27 @@ test_that("is.tibble", {
 test_that("is_tibble", {
   expect_identical(is.tibble, is_tibble)
 })
+
+# new_tibble --------------------------------------------------------------
+
+test_that("new_tibble", {
+  tbl <- new_tibble(
+    data.frame(a = 1),
+    attr1 = "val1",
+    attr2 = "val2",
+    subclass = "nt"
+  )
+
+  # Can't compare directly due to dplyr:::all.equal.tbl_df()
+  expect_identical(class(tbl), c("nt", "tbl_df", "tbl", "data.frame"))
+  expect_equal(
+    unclass(tbl),
+    structure(
+      list(a = 1),
+      .Names = "a",
+      row.names = c(NA, -1L),
+      attr1 = "val1",
+      attr2 = "val2"
+    )
+  )
+})