从变量中获取赋值代码的函数

Question

假设我们分配了一些变量：

variable_name <- runif(100) 
letter <- "a" 
listed <- list("a", "b", "C")

我希望有一个函数assignment_code(object) 可以输出这些对象的赋值代码，即

>assignment_code(variable_name)
    "variable_name <- runif(100)"
>assignment_code(letter)
    "letter <- "a""
>assignment_code(listed) 
    "listed <- list("a", "b", "C")"

我试着去做，但我不确定如何去做。我试图用ls() 做一些魔术，但我不确定在ls() 中选择元素的正确算法。你知道怎么做吗？

Answer 1

一般来说，不可能从对象中找出它是如何创建的，例如分配x <- 1 和x <- 3-2 会使x 看起来相同，但不知道使用了哪个创建它。

一些可能的解决方案是：

• 使用 Rgui 中的向上箭头或 Rstudio 中的“历史”窗格访问 R 的历史以查看变量是如何创建的。这也存储在一个名为 .rhistory 的文件中。
• 将所有代码保存为 R 脚本，以便记录每个变量的创建方式。
• 将您的工作保存为 Rmarkdown（与 Rstudio 很好地集成），其中代码生成的输出可以合并。