自动生成命令以在工作区中重现对象[重复]

假设工作区中已经定义了一个对象：

a <- round( rnorm(10) )

[1]  0 -1 -1 -1 -1  0  2  1  1  1

如何以编程方式生成一个命令来创建a?

例如，我想使用a在我的工作区中生成以下字符串codeToCreateA:

codeToCreateA <- "a <- c( 0, -1, -1, -1, -1,  0,  2,  1,  1,  1)"

我对一般情况感兴趣，其中a可以是任何类型的对象，包括向量、列表或数据框。

dput(A)返回对象的结构A。然后它可以用来重新创建A直接，或者与其他人共享重新创建单个对象的代码。

我已经在向量、数据框和列表上测试了它。

这是数据板（也是数据框类）的示例：

a <- structure(list(A = c("a", "a", "a", "b", "b"), B = 1:5), 
.Names = c("A", "B"), row.names = c(NA, -5L), 
class = c("data.table", "data.frame" ), 
.internal.selfref = <pointer: 0x22f5938>)

请注意，在执行此代码之前需要删除最后一个参数。 IE。

b <- structure(list(A = c("a", "a", "a", "b", "b"), B = 1:5), 
.Names = c("A", "B"), row.names = c(NA, -5L), 
class = c("data.table", "data.frame" ) )

对上述问题的评论有助于准备这个答案。