different solution for extra large objects

the previous one didn't pass this test
t = data.frame(1)
as.data.frame(do(input(mtcars), function(x) t))