函数返回代码以创建数据帧

Question

我正在寻找一个函数来获取在R中生成数据帧的代码。我还没有找到任何允许我这样做的简单函数。当然，我可以用硬编码来做这件事。我想知道是否有任何捷径或内置功能。<​​/ p>

mydata = data.frame(x=c("A","A","B"),y=c(1,2,1))

输入：

mydata
  x y
1 A 1
2 A 2
3 B 1

输出：

dfToCode(mydata)
"data.frame(x=c("A","A","B"),y=c(1,2,1))"

我知道这有点不合常规，将数据框存储在文件中会更好。 无论如何，这样的函数可以让我在代码中轻松获得一个可重复的小数据框示例。

谢谢