将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) }"