使用代码

Question

假设我有一个函数ABC

   ABC <- function(n1,n2,n3){
   A = mean(n1,n2,n3) 
   B = median(n1,n2,n3)
   C = sum(n1,n2,n3)
   Prod = n1*n2*n3
   Sqr = n1^2 + n2^2 + n3^2
   Result = ifelse(Prod == A, TRUE, FALSE)
   ifelse(A > B, A, B)
   }

所以，现在一个虚构的函数应该给我一个在函数ABC内创建的所有对象的列表及其右侧，即输出应该是

   A = mean(n1,n2,n3) 
   B = median(n1,n2,n3)
   C = sum(n1,n2,n3)
   Prod = n1*n2*n3
   Sqr = n1^2 + n2^2 + n3^2
   Result = ifelse(Prod == A, TRUE, FALSE)

deparse()是通过提供行号。不确定如何使用grep()。

可用于参数的函数是args()，formals()，formalArgs()等。如果有任何关于函数内部对象的线索。

我想对R内部的内置函数进行对象及其右侧的提取，这些函数具有巨大的代码，因此我想要提取函数或方法中创建的对象及其右侧< /强>

非常感谢任何有关如何进行此操作的帮助。感谢。