如何在R程序中将Deriv生成的函数代码保存到文件？

你可以用R的deparse()函数把Deriv生成的函数转换成字符串形式，之后直接写入文件就能实现自动化操作，不用依赖sink()捕获控制台输出。

完整示例代码： #

# 安装并加载Deriv包（首次使用时需要执行安装）
install.packages("Deriv")
library(Deriv)

# 定义原函数
f <- function(x) { x^2 }

# 计算导数函数
fd <- Deriv(f, "x")

# 将导数函数转为字符串
fd_code <- deparse(fd)

# 写入文件（直接保存函数体）
writeLines(fd_code, "myr.R")

# 可选：保存带赋值语句的完整函数定义
full_function_code <- paste0("fd <- ", paste(fd_code, collapse = "\n"))
writeLines(full_function_code, "myr_with_assign.R")

说明： #

• deparse()会把函数拆解成由代码行组成的字符向量，比如针对fd，它会返回c("function (x) ", "2 * x")。
• writeLines()可以直接把这些代码行写入文件，保留函数的原有格式。
• 如果需要在文件中保存完整的赋值语句（比如fd <- function(x) 2*x），可以用paste()把deparse()的结果拼接起来，再加上赋值前缀。

内容的提问来源于stack exchange，提问作者Stephen Jewson