update test

Author: romainfrancois

r/tests/testthat/test-metadata.R

@@ -136,7 +136,7 @@ test_that("metadata keeps attribute of top level data frame", {
 })
 
 test_that("metadata of list elements (ARROW-10386)", {
-  df <- data.frame(x = list(structure(1, foo = "bar"), structure(2, foo = "bar")))
+  df <- data.frame(x = I(list(structure(1, foo = "bar"), structure(2, foo = "bar"))))
   tab <- Table$create(df)
   expect_identical(attr(as.data.frame(tab)$x[[1]], "foo"), "bar")
   expect_identical(attr(as.data.frame(tab)$x[[2]], "foo"), "bar")