new_tibble() supports language objects again

Author: krlmlr

R/new.R

@@ -96,8 +96,8 @@ new_tibble <- function(x, ..., nrow = NULL, class = NULL, subclass = NULL) {
   # `new_data_frame()` restores compact row names
   args[["row.names"]] <- NULL
 
-  # do.call() is faster than exec() in this case
-  do.call(new_data_frame, args)
+  # need exec() to avoid evaluating language attributes (e.g. rsample)
+  exec(new_data_frame, !!!args)
 }
 
 #' @description

tests/testthat/test-new.R

@@ -89,6 +89,13 @@ test_that("new_tibble() supports missing `nrow` (#781)", {
   expect_identical(new_tibble(list(a = 1:3)), tibble(a = 1:3))
 })
 
+test_that("new_tibble() supports language objects", {
+  expect_identical(
+    new_tibble(list(), foo = quote(bar())),
+    structure(new_tibble(list()), foo = quote(bar()))
+  )
+})
+
 test_that("new_tibble checks", {
   scoped_lifecycle_errors()