library(pryr)
a <- list(rep(1, 1e5))
b <- list(a)

object_size(a)
## 800 kB
object_size(b)
## 800 kB
object_size(a, b)
## 800 kB