YAML текущая дата в rmarkdown

Мне интересно, есть ли хитрость, чтобы поместить текущую дату во внешнюю оболочку YAML .rmdдокумента для обработки knitrи rmarkdownпакета. Я имел обыкновение иметь следующую строку в верхней части моих вики-страниц,

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

и он будет преобразован в крещение, 3 мая 2014 года в выводе html. Теперь я хотел бы воспользоваться расширенной оболочкой pandoc, предоставляемой rmarkdown, но наличие r-кода в заголовке YAML, похоже, не работает:

---
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

Любое решение?

Это немного сложно, но вам просто нужно сделать dateполе действительным в YAML, заключив в кавычки выражение R, например:

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

Тогда ошибка синтаксического анализа исчезнет, ​​и в выходных данных уценки будет сгенерирована дата, чтобы Pandoc мог использовать значение из Sys.time().

Просто следите за @Yihui. Как ни странно, я обнаружил, что:

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

работает лучше чем:

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

В последнем случае RStudio выбирает изменение внешних кавычек на 'любое переключение между выводом HTML и PDF и, таким образом, нарушение кода.

Или просто одинарные кавычки двойные кавычки и наоборот, это хорошо работает.

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

Один из обходных путей - использовать brewпакет и написать свой brewшаблон YAML в качестве шаблона.

---
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)
}

Чтобы заставить это работать с KnitHTMLкнопкой в ​​RStudio, вы можете написать собственный формат вывода, который будет автоматически использоваться brewв качестве препроцессора. Использование brewдля предварительной обработки гарантирует, что knitrфрагменты кода в вашем документе не будут затронуты на этапе предварительной обработки. В идеале rmarkdownпакет должен предоставлять метаданные в своем API и позволять пользователям запускать их через пользовательские функции.

или, возможно, что-то вроде следующего, см. R Markdown Parameterized Reports

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

По той же проблеме для меня. Я решаю это с помощью этого кода.

---
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
---

Лучший.

Я был укушен этим сегодня. я имел

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

и получил более-менее ту же ошибку, что и ОП, но только при вязании на слово. Вязание в PDF было хорошо, прежде чем я пытался вязать в Word. Впоследствии это тоже не сработало.

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

Позиция 31 - первый знак%

Заменить это на

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

как советовал MLaVoie, работал нормально.

Я понятия не имею, почему это произошло, и у меня нет времени копаться - отчеты заканчиваются.