r - 如何列出包中的所有 R Markdown 模板？

Question

一般问题
给定一个提供 R Markdown 模板的包，如何获得所有有效模板的列表 可以给 rmarkdown::draft功能？也就是说，对于

rmarkdown::draft("my_rmd.Rmd", template_name, some_pkg)

我们知道的地方 some_pkg ，如何以编程方式获取 template_name 的有效值?
示例包:reprex
作为模板提供程序的具体示例，让我们使用 代表包裹。从 RStudio GUI，我知道 代表提供两个模板。如何获取 template_names的列表为 代表包裹？
我看过的
浏览 rmarkdown::方法，我没有看到任何这样的功能。四处搜索，我只找到了有关如何编写和使用模板的示例，但最终都求助于展示如何通过 RStudio GUI 对话框加载模板。 rmarkdown::draft 的文档仅描述模板的存储位置，但不提供列出它们的编程示例。

Answer 1

目录列表
一种解决方案是在包的安装目录中搜索模板。对于 代表情况，我们有

## get package root directory
pkg_dir <- system.file(package="reprex")

## list all directory names corresponding to templates
list.dirs(paste0(pkg_dir, "/rmarkdown/templates"), recursive=FALSE, full.names=FALSE)
## [1] "reprex-featureful" "reprex-minimal" 

## verify they work
rmarkdown::draft("test", "reprex-minimal", "reprex")

虽然这有效，但我发现它相当不令人满意，并希望有一个专门的功能。但也许我高估了以编程方式使用模板的需求。