将R函数转换为字符串

Question

我想把函数对象转成字符串

fn=function(x)
{
  return(2*x)
}

my_convert_function(fn)

# would give 
#"fn=function(x)
#{
#  return(2*x)
#}"

有可能吗？谢谢你的想法

Answer 1

deparse(fn)
[1] "function (x) "     "{"                 "    return(2 * x)" "}"

Answer 2

从 R 4.0 开始，还有deparse1()。这个版本的deparse() 直接返回一个字符串（如果这是你要找的）：

fn=function(x)
{
  return(2*x)
}
  
deparse1(fn)

#> [1] "function (x)  {     return(2 * x) }"