Também não entendi direito, mas veja se algo
lhe serve do código abaixo.
n = c(2, 3, 5)
s = c("aa", "bb", "cc", "dd", "ee")
b = c(TRUE, FALSE, TRUE, FALSE, FALSE)
object = list(n, s, b, 3) # x contains copies of n, s, b
### 'relendo'/copiando o objeto
obj.novo1 <- object ### cópia do objeto
obj.novo2 <- dput(object)
dput(object) ### saída do dput()
### copiando e colando a saída do dput no console pra criar um novo objeto
obj.novo3 <- list(c(2, 3, 5), c("aa", "bb", "cc", "dd", "ee"),
c(TRUE, FALSE, TRUE, FALSE, FALSE), 3)
all.equal(obj.novo1,obj.novo2)
all.equal(obj.novo1,obj.novo3)