将对象保存为R中的.R文件，保持格式化

Question

我正在编写一个R脚本，该脚本读入模板.R文件，日期列表，并创建一组与日期对应的文件夹，并包含.R中的文本替换已在R中执行以自定义给定日期的每个脚本。

我仍然坚持写出.R文件的部分，因为格式化和/或字符表示不断搞砸。

这是一个简单，可重复的例子：

RMapsDemo <- readLines("https://raw.githubusercontent.com/hack-r/RMapsDemo/master/RMapsDemo.R")
RMapsDemo <- gsub("## File: RMapsDemo.R", "## File: RMapsDemo.R ####", RMapsDemo)
save(RMapsDemo, file = "RMapsDemo.R")            # Doesn't work right
save(RMapsDemo, file = "RMapsDemo.R", ascii = T) # Doesn't work right
dput(RMapsDemo, file = "RMapsDemo.R")            # Close, but no cigar
dput(RMapsDemo, file = "RMapsDemo.R", control = c("keepNA", "keepInteger")) # Close, but no cigar

Answer 1

Ricardo Saporta在评论中指出了解决方案 - 使用ws。

我自己没有想到这一点我觉得很愚蠢。它工作得很漂亮。

writeLines