在R中创建默认注释标题模板？

是否可以在R中为所有新脚本创建默认注释头模板

我通常会在所有脚本的顶部包含一些标准信息，并希望自动化创建注释标题的过程

例如：

##################################################
## Project:
## Script purpose:
## Date:
## Author:
##################################################

---

我不知道你是否可以直接做，但是你可以通过在你的Rprofile中加入以下内容来近似它

make_r_template <- function(filename = "r_template.R", dir = getwd())
{
  if (file.exists(file.path(dir, filename))) invisible(NULL)
  else{
    write(c("##################################################",
            "## Project:",
            "## Script purpose:",
            "## Date:",
            "## Author:",
            "##################################################"),
          file = file.path(dir, filename),
          sep = "\n")
  }
}

make_r_template()

---

make\u r\u template根据上面@lmo的建议，我通过编辑位于
Preferences>code>Edit snippets的snippets文件，在RStudio中创建了两个新的代码片段

注意：代码段定义下方的代码必须使用选项卡缩进，不能使用两个空格

片段1：新脚本的注释标题

snippet header_script
  ##################################################
  ## Project:
  ## Script purpose:
  ## Date:
  ## Author:
  ##################################################

代码片段2：脚本中代码段的注释标题：

snippet header_section
  ## Section:
  ##################################################

现在，每当我想插入一个给定的标题时，我只需开始键入代码段名称（例如，
header\u script
），从“自动完成”菜单中选择它（不要完整键入），然后按enter键插入注释标题。
如果您使用的是vim，则可以在单独的R代码段文件中定义如下代码段：

snippet header "R Header template" b
#' ---
#' title:  ${1:title here}
#' author: ${2:John Smith (John@Smith.com)}
#' date:   ${3:`date +%Y-%m-%d`}
#' ---
endsnippet

您只需键入
标题
，这可以节省大量时间，特别是因为它填充了预定义的值（如日期）

如前所述，这似乎与Rmarkdown兼容。
假设您使用的是rstudio（R和rstudio是独立的软件），您可以看看rstudio中相对较新的代码段功能，如图所示。这并不完全正确，但可能会让你离得很近。谢谢！我认为这实际上是一个更好的选择，因为它将允许我制作（并轻松插入）不同格式的注释标题（例如，对于函数脚本、清理脚本、闪亮的应用程序等），此外，@lmo如果您觉得这个问题有趣/有用，请向上投票！