switch output format in vignettes to litedown html (#7628)

* switch output format in vignettes to litedown html

* adjust paths

* adjust path for base vignette

* Detect current directory being "vignettes"

* Update inline code blocks

* Also update inline code blocks in translations

* Don't normalize paths that are't necessarily valid

Just check against "vignettes/foo.Rmd" or (implied ./)"bar.Rmd".

* Clean up duplicated translation links

---------

Co-authored-by: Ivan K <krylov.r00t@gmail.com>

Author: ben-schwen

vignettes/_translation_links.R

@@ -2,17 +2,15 @@
 # idea is to look like 'Other languages: en | fr | de'
 .write.translation.links = function(fmt) {
     url = "https://rdatatable.gitlab.io/data.table/articles"
-    path = dirname(litedown::get_context("input"))
-    if (basename(path) == "vignettes") {
+    context = litedown::get_context("input")
+    path = dirname(context)
+    if (basename(path) %in% c(".", "vignettes")) {
       lang = "en"
     } else {
       lang = basename(path)
-      path = dirname(path)
+      path = ".."
     }
-    translation = dir(path,
-      recursive = TRUE,
-      pattern = glob2rx(litedown::get_context("input"))
-    )
+    translation = dir(path = path, recursive = TRUE, pattern = basename(context))
     transl_lang = ifelse(dirname(translation) == ".", "en", dirname(translation))
     block = if (!all(transl_lang == lang)) {
       linked_transl = sprintf("[%s](%s)", transl_lang, file.path(url, sub("(?i)\\.Rmd$", ".html", translation)))

vignettes/datatable-fread-and-fwrite.Rmd

@@ -1,8 +1,7 @@
 ---
 title: "Fast Read and Fast Write"
-date: "`r Sys.Date()`"
-output: 
-  markdown::html_format
+date: "`{r} Sys.Date()`"
+output: litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Fast Read and Fast Write}
   %\VignetteEngine{litedown::vignette}
@@ -11,7 +10,7 @@ vignette: >
 
 ```{r echo=FALSE, file='_translation_links.R'}
 ```
-`r .write.translation.links("Translations of this document are available in: %s")`
+`{r} .write.translation.links("Translations of this document are available in: %s")`
 
 ```{r, echo = FALSE, message = FALSE}
 require(data.table)

vignettes/es/datatable-fread-and-fwrite.Rmd

@@ -1,8 +1,7 @@
 ---
 title: "Lectura y escritura rápida: fread()/fwrite()"
-date: "`r Sys.Date()`"
-output: 
-  markdown::html_format
+date: "`{r} Sys.Date()`"
+output: litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Fast Read and Fast Write}
   %\VignetteEngine{litedown::vignette}
@@ -12,7 +11,7 @@ vignette: >
 ```{r echo=FALSE, file='../_translation_links.R'}
 ```
 
-`r .write.translation.links("Las traducciones de este documento están disponibles en: %s")`
+`{r} .write.translation.links("Las traducciones de este documento están disponibles en: %s")`
 
 ```{r, echo = FALSE, message = FALSE}
 require(data.table)

vignettes/fr/datatable-benchmarking.Rmd

@@ -2,7 +2,7 @@
 title: "Analyse comparative (benchmark) de data.table"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format:
+  litedown::html_format:
     options:
       toc: true
       number_sections: true

vignettes/fr/datatable-faq.Rmd

@@ -2,7 +2,7 @@
 title: "Foire aux questions de data.table"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format:
+  litedown::html_format:
     options:
       toc: true
       number_sections: true

vignettes/fr/datatable-fread-and-fwrite.Rmd

@@ -1,8 +1,7 @@
 ---
 title: "Lecture et écriture rapides"
-date: "`r Sys.Date()`"
-output: 
-  markdown::html_format
+date: "`{r} Sys.Date()`"
+output: litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Lecture et écriture rapides}
   %\VignetteEngine{litedown::vignette}

vignettes/fr/datatable-intro.Rmd

@@ -2,7 +2,7 @@
 title: "Introduction à data.table"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format
+  litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Introduction à data.table}
   %\VignetteEngine{litedown::vignette}

vignettes/fr/datatable-keys-fast-subset.Rmd

@@ -2,7 +2,7 @@
 title: "Extraire des sous-ensemble avec les clés et la recherche binaire rapide"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format
+  litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Extraire des sous-ensemble avec les clés et la recherche binaire rapide}
   %\VignetteEngine{litedown::vignette}

vignettes/fr/datatable-programming.Rmd

@@ -2,7 +2,7 @@
 title: "Programmation avec data.table"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format
+  litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Programmation avec data.table}
   %\VignetteEngine{litedown::vignette}

vignettes/fr/datatable-reference-semantics.Rmd

@@ -2,7 +2,7 @@
 title: "Sémantique de référence"
 date: "`{r} Sys.Date()`"
 output:
-  markdown::html_format
+  litedown::html_format
 vignette: >
   %\VignetteIndexEntry{Sémantique de référence}
   %\VignetteEngine{litedown::vignette}