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

问：

我正在编写一个在模板中读取的 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