我想知道是否有一种技巧可以将当前日期放在.rmd文档的YAML前端,由knitr和rmarkdown包处理。我曾经在我的维基页面顶部有这样一行字,

   _baptiste, `r format(Sys.time(), "%d %B, %Y")`_

并且它将在html输出中转换为baptiste, 03 May, 2014。现在,我想利用rmarkdown提供的高级pandoc包装器,但在YAML头中有r代码似乎不起作用:

---
title: "Sample Document"
output:
  html_document:
    toc: true
    theme: united
date: `r format(Sys.time(), "%d %B, %Y")`
author: baptiste
---

Error in yaml::yaml.load(front_matter) : 
  Scanner error: while scanning for the next token at line 6, column 7
 found character that cannot start any token at line 6, column 7
Calls: <Anonymous> ... output_format_from_yaml_front_matter -> 
       parse_yaml_front_matter -> <Anonymous> -> .Call

有解决方案吗?


当前回答

一种解决方法是使用brew包并将YAML前端内容编写为brew模板。

---
title: "Sample Document"
output:
  html_document:
    toc: true
    theme: united
date: <%= format(Sys.time(), "%d %B, %Y") %>
author: baptiste
---

现在可以使用brew_n_render函数,该函数将使用brew预处理文档,然后通过rmarkdown运行。

brew_n_render <- function(input, ...){
  output_file <- gsub("\\.[R|r]md$", ".html", input)
  brew::brew(input, 'temp.Rmd');  on.exit(unlink('temp.Rmd'))
  rmarkdown::render('temp.Rmd', output_file = output_file)
}

要使用RStudio中的KnitHTML按钮来实现这一点,您可以编写一个自定义输出格式,该格式将自动使用brew作为预处理器。使用brew进行预处理可确保在预处理阶段不影响文档中的knitr代码块。理想情况下,rmarkdown包应该在其API中公开元数据,并允许用户通过自定义函数运行元数据。

其他回答

只是跟进@Yihui的情况。奇怪的是,我发现:

'`r format(Sys.Date(), "%B %d, %Y")`'

比以下情况更有效:

"`r format(Sys.Date(), '%B %d, %Y')`"

对于后者,当在HTML和PDF输出之间切换并因此破坏代码时,RStudio选择将外部引号更改为'。

或者,可能类似于下面的内容,请参阅R Markdown参数化报告

params:
  reportDate:
    input: date
    label: 'Report Date:'
    value: as.POSIXct(Sys.Date())

这有点棘手,但您只需要通过引用内联R表达式使日期字段在YAML中有效,例如。

date: "`r format(Sys.time(), '%d %B, %Y')`"

然后解析错误将消失,日期将在markdown输出中生成,这样Pandoc就可以使用Sys.time()中的值。

或者单引号,双引号,反之亦然,这很好。

---
title: "Sample Document"
output:
  html_document:
    toc: true
    theme: united
date: '`r format(Sys.time(), "%d %B, %Y")`'
author: baptiste
---

对我来说同样的问题。我用这个代码来解决它。

---
title: "bla bla"
author: "My name"
date: \`r format(Sys.Date(), "%B %d, %Y")`\
output: html_document
---

更新 你也可以使用另一种格式。

---
title: "bla bla"
author: "My name"
date: \`r format(Sys.Date(), "%m %d,%Y")`\
output: html_document
---

最好的