Date actuelle YAML dans rmarkdown

Je me demande s'il y a une astuce pour mettre la date actuelle dans la première page YAML d'un .rmddocument à traiter knitret du rmarkdownpackage. J'avais l'habitude d'avoir la ligne suivante en haut de mes pages wiki,

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

et il serait converti en baptiste, le 03 mai 2014 dans la sortie html. Maintenant, je voudrais profiter du wrapper pandoc avancé fourni par rmarkdown, mais avoir le code r dans l'en-tête YAML ne semble pas fonctionner:

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

Une solution?

C'est un peu délicat, mais il vous suffit de rendre le datechamp valide en YAML en citant l'expression R en ligne, par exemple

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

Ensuite, l'erreur d'analyse aura disparu et la date sera générée dans la sortie de démarque afin que Pandoc puisse utiliser la valeur de Sys.time().

Je fais juste un suivi sur @Yihui. Curieusement, j'ai constaté que:

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

fonctionne mieux que:

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

Pour ce dernier, RStudio choisit de changer les guillemets externes en 'basculant entre la sortie HTML et PDF et donc de casser le code.

Ou juste des guillemets simples et vice versa, cela fonctionne bien.

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

Une solution de contournement consiste à utiliser le brewpackage et à écrire votre sujet YAML en tant que brewmodèle.

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

Vous pouvez maintenant utiliser une brew_n_renderfonction qui pré-traiterait le document à l'aide brewpuis l'exécuterait 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)
}

Pour que cela fonctionne avec le KnitHTMLbouton dans RStudio, vous pouvez écrire un format de sortie personnalisé qui sera automatiquement utilisé brewcomme préprocesseur. L'utilisation brewdu prétraitement garantit que les knitrmorceaux de code de votre document ne sont pas modifiés pendant l'étape de prétraitement. Idéalement, le rmarkdownpackage devrait exposer les métadonnées dans son API et permettre aux utilisateurs de l'exécuter via une fonction personnalisée.

ou, peut-être quelque chose comme ce qui suit, voir R Markdown Parameterized Reports

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

Pour le même problème pour moi. Je le résous en utilisant ce code.

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

Mise à jour Vous pouvez également utiliser un autre format.

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

Meilleur.

J'ai été mordu par cela aujourd'hui. j'ai eu

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

et a obtenu plus ou moins la même erreur que l'OP, mais seulement en tricotant au mot. Tricoter en pdf était bien avant d'essayer de tricoter en Word. Après ça n'a pas marché non plus.

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`

La position 31 est le premier signe%

Remplacer cela par

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

comme conseillé par MLaVoie, a bien fonctionné.

Je n'ai aucune idée pourquoi cela s'est produit, et je n'ai pas le temps d'aller creuser - les rapports pour terminer.