upd translation script and r -> {r} code blocks

Author: rikivillalba

vignettes/_translation_links.R

@@ -2,7 +2,7 @@
 # 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(knitr::current_input(TRUE))
+    path = dirname(litedown::get_context("input"))
     if (basename(path) == "vignettes") {
       lang = "en"
     } else {
@@ -11,13 +11,13 @@
     }
     translation = dir(path,
       recursive = TRUE,
-      pattern = glob2rx(knitr::current_input(FALSE))
+      pattern = glob2rx(litedown::get_context("input"))
     )
     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)))
       linked_transl[transl_lang == lang] = lang
       sprintf(fmt, paste(linked_transl, collapse = " | "))
     } else ""
-    knitr::asis_output(block)
+    litedown::raw_text(block)
 }

vignettes/datatable-benchmarking.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Benchmarking data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format:
     options:
@@ -30,9 +30,9 @@ h2 {
 }
 </style>
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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")`
 
 This document is meant to guide on measuring performance of `data.table`. Single place to document best practices and traps to avoid.
 

vignettes/datatable-faq.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Frequently Asked Questions about data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format:
     options:
@@ -26,9 +26,9 @@ h2 {
 }
 </style>
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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}
 library(data.table)

vignettes/datatable-importing.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Importing data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -20,9 +20,9 @@ h2 {
 }
 </style>
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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")`
 
 This document is focused on using `data.table` as a dependency in other R packages. If you are interested in using `data.table` C code from a non-R application, or in calling its C functions directly, jump to the [last section](#non-r-api) of this vignette.
 

vignettes/datatable-intro.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Introduction to data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -9,9 +9,9 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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}
 library(data.table)
@@ -41,7 +41,7 @@ In this vignette, we will use [NYC-flights14](https://raw.githubusercontent.com/
 
 We can use `data.table`'s fast-and-friendly file reader `fread` to load `flights` directly as follows:
 
-```{r echo = FALSE}
+```{r, echo = FALSE}
 options(width = 100L)
 ```
 

vignettes/datatable-joins.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Joins in data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -18,7 +18,7 @@ litedown::reactor(comment = "# ", print = NA)
 
 ```{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")`
 
 In this vignette you will learn how to perform any join operation using resources available in the `data.table` syntax.
 

vignettes/datatable-keys-fast-subset.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Keys and fast binary search based subset"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -9,9 +9,9 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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}
 library(data.table)
@@ -27,7 +27,7 @@ This vignette is aimed at those who are already familiar with *data.table* synta
 
 We will use the same `flights` data as in the [`vignette("datatable-intro", package="data.table")`](datatable-intro.html) vignette.
 
-```{r echo = FALSE}
+```{r, echo = FALSE}
 options(width = 100L)
 ```
 

vignettes/datatable-programming.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Programming on data.table"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -9,9 +9,9 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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 init, include = FALSE}
 require(data.table)

vignettes/datatable-reference-semantics.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Reference semantics"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -9,9 +9,9 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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}
 library(data.table)
@@ -27,7 +27,7 @@ This vignette discusses *data.table*'s reference semantics which allows to *add/
 
 We will use the same `flights` data as in the [`vignette("datatable-intro", package="data.table")`](datatable-intro.html) vignette.
 
-```{r echo = FALSE}
+```{r, echo = FALSE}
 options(width = 100L)
 ```
 

vignettes/datatable-reshape.Rmd

@@ -1,6 +1,6 @@
 ---
 title: "Efficient reshaping using data.tables"
-date: "`r Sys.Date()`"
+date: "`{r} Sys.Date()`"
 output:
   litedown::html_format
 vignette: >
@@ -9,9 +9,9 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
-```{r echo=FALSE, file='_translation_links.R'}
+```{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}
 library(data.table)
@@ -23,7 +23,7 @@ This vignette discusses the default usage of reshaping functions `melt` (wide to
 
 ***
 
-```{r echo = FALSE}
+```{r, echo = FALSE}
 options(width = 100L)
 ```