R-将函数文件读入列表

我有一个文件

functions.R

，基本上是：

fun1 <- function(a,b) {
  ...
}

fun2 <- function(c,d) {
  ...
}

...

fun1试试这个：

e <- new.env()
sys.source("path/to/file.R", envir=e)

要获取函数的文本（感谢@Gregor）：

将为每个文件提供
字符
向量，尽管它是剥离函数，没有注释。
尝试以下操作：

e <- new.env()
sys.source("path/to/file.R", envir=e)

要获取函数的文本（感谢@Gregor）：

将为每个文件提供
字符
向量，尽管它是剥离函数，没有注释。
是否希望字符串作为列表的元素，而不是函数对象？我可以问一下原因吗？您必须调用source（），但要向函数传递一个新的空环境。所有功能都将驻留在新环境中。然后可以在环境中调用as.list（）。我有一个闪亮的图标，允许用户浏览一些数据，其中一个项目是应用于数据的函数。。。以闪亮的颜色显示函数会很好。您希望字符串作为列表的元素，而不是函数对象吗？我可以问一下原因吗？您必须调用source（），但要向函数传递一个新的空环境。所有功能都将驻留在新环境中。然后可以在环境中调用as.list（）。我有一个闪亮的图标，允许用户浏览一些数据，其中一个项目是应用于数据的函数。。。以闪亮的颜色显示函数会很好。可能是一个带有捕获的
eapply
。输出或
deparse
可以得到OP想要的字符串形式的函数代码？很好，谢谢！！。如何将内存中的函数强制为字符串？
capture.output（我的函数名）
或
sapply（c（'funcname1'，'funcname2'），capture.output，simplify=FALSE）
将提供函数文本内容列表，类似于环境版本。完美！谢谢埃文斯和格雷戈！也许一个
eapply
和
capture.output
或
deparse
可以得到OP想要的字符串形式的函数代码？很好，谢谢！！。如何将内存中的函数强制为字符串？
capture.output（我的函数名）
或
sapply（c（'funcname1'，'funcname2'），capture.output，simplify=FALSE）
将提供函数文本内容列表，类似于环境版本。完美！谢谢埃文斯和格雷戈！
eapply(e, capture.output)