> ints <- rep(list(1L), 100)
> named_ints <- rep(list(set_names(1:3, letters[1:3])), 100)
> # Integers as rows
> suppressMessages(with_memory_prof(vec_rbind(!!!ints)))
[1] 2.53KB

> suppressMessages(with_memory_prof(vec_rbind(!!!named_ints)))
[1] 3.41KB

> # Data frame with named columns
> df <- data_frame(x = set_names(as.list(1:2), c("a", "b")), y = set_names(1:2, c(
+   "A", "B")), z = data_frame(Z = set_names(1:2, c("Za", "Zb"))))
> dfs <- rep(list(df), 100)
> with_memory_prof(vec_rbind(!!!dfs))
[1] 10.2KB

> # Data frame with rownames (non-repaired, non-recursive case)
> df <- data_frame(x = 1:2)
> dfs <- rep(list(df), 100)
> dfs <- map2(dfs, seq_along(dfs), set_rownames_recursively)
> with_memory_prof(vec_rbind(!!!dfs))
[1] 7.42KB

> # Data frame with rownames (repaired, non-recursive case)
> dfs <- map(dfs, set_rownames_recursively)
> with_memory_prof(vec_rbind(!!!dfs))
[1] 14.8KB

> # FIXME (#1217): Data frame with rownames (non-repaired, recursive case)
> df <- data_frame(x = 1:2, y = data_frame(x = 1:2))
> dfs <- rep(list(df), 100)
> dfs <- map2(dfs, seq_along(dfs), set_rownames_recursively)
> with_memory_prof(vec_rbind(!!!dfs))
[1] 1MB

> # FIXME (#1217): Data frame with rownames (repaired, recursive case)
> dfs <- map(dfs, set_rownames_recursively)
> with_memory_prof(vec_rbind(!!!dfs))
[1] 1.02MB

