R函数将对象转换为代码

Question

我在R中寻找一个函数,它将一个对象转换为可用于创建该对象副本的代码.像这样的东西:

> myObject=c(1, 2, 3)
> magicFunction(myObject)
[1] "c(1,2,3)"

我认为这个功能存在,但我找不到它.非常感谢你的帮助.

Answer 1

我们可以用 deparse

deparse(myObject)
#[1] "c(1, 2, 3)"

Answer 2

您也可以使用dput,因为它保留了对象的结构,而不是它的字符串表示.

来自?dput:

将R对象的ASCII文本表示写入文件或连接,或使用一个来重新创建对象.

例如

myObject=c(1, 2, 3)

dput(myObject)
# c(1, 2, 3)


identical(myObject, dput(myObject))
# c(1, 2, 3)
# [1] TRUE

## whereas
identical(myObject, deparse(myObject))
# [1] FALSE