French translation (vignettes) (#6455)

Co-authored-by: Michael Chirico <[email protected]>
Co-authored-by: Toby Dylan Hocking <[email protected]>
Co-authored-by: Toby Dylan Hocking <[email protected]>
Co-authored-by: Toby Dylan Hocking <[email protected]>

Author: 4 people

.Rbuildignore

@@ -1,4 +1,5 @@
 .dir-locals.el
+.check.translations.R
 ^\.Rprofile$
 ^data\.table_.*\.tar\.gz$
 ^config\.log$

DESCRIPTION

@@ -92,5 +92,10 @@ Authors@R: c(
   person("Ivan", "Krylov",         role="ctb"),
   person("Angel", "Feliz",         role="ctb"),
   person("Michael","Young",        role="ctb"),
-  person("Mark", "Seeto",          role="ctb")
+  person("Mark", "Seeto",          role="ctb"),
+  person("Philippe", "Grosjean",   role="ctb"),
+  person("Vincent", "Runge",       role="ctb"),
+  person("Christian", "Wia",       role="ctb"),
+  person("Elise", "Maigné",        role="ctb"),
+  person("Vincent", "Rocher",      role="ctb")
   )

vignettes/.check.translations.R

@@ -0,0 +1,27 @@
+library(data.table)
+translated.Rmd <- Sys.glob("*/*.Rmd")
+rm_suffix <- function(x)sub("[.][^.]+$", "", x)
+trans.dt <- data.table(
+  lang=dirname(translated.Rmd),
+  trans_file=rm_suffix(basename(translated.Rmd)))
+en.dt <- data.table(en.Rmd=Sys.glob("*.Rmd"))[
+, en_file := rm_suffix(en.Rmd)
+][]
+link.dt <- en.dt[, nc::capture_all_str(
+  en.Rmd,
+  "https://rdatatable.gitlab.io/data.table/articles/",
+  lang=".*?",
+  "/",
+  trans_file=".*?html", rm_suffix
+), by=en_file]
+maybe_err <- function(dt,msg){
+  if(nrow(dt)){
+    cat(msg,":\n")
+    print(dt)
+  }
+}
+maybe_err(link.dt[en_file != trans_file],"typos in links")
+files.join <- trans.dt[en.dt, .(
+  langs=paste(lang[!is.na(lang)],collapse=",")
+), on=.(trans_file=en_file), by=.EACHI]
+maybe_err(files.join[nchar(langs)<max(nchar(langs))], "missing translation files")

vignettes/datatable-benchmarking.Rmd

@@ -25,6 +25,10 @@ h2 {
 }
 </style>
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-benchmarking.html)
+
 This document is meant to guide on measuring performance of `data.table`. Single place to document best practices and traps to avoid.
 
 # fread: clear caches

vignettes/datatable-faq.Rmd

@@ -26,6 +26,10 @@ h2 {
 }
 </style>
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-faq.html)
+
 ```{r, echo = FALSE, message = FALSE}
 library(data.table)
 knitr::opts_chunk$set(

vignettes/datatable-importing.Rmd

@@ -15,6 +15,10 @@ h2 {
 }
 </style>
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-importing.html)
+
 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.
 
 Importing `data.table` is no different from importing other R packages. This vignette is meant to answer the most common questions arising around that subject; the lessons presented here can be applied to other R packages.

vignettes/datatable-intro.Rmd

@@ -9,6 +9,10 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-intro.html)
+
 ```{r, echo = FALSE, message = FALSE}
 require(data.table)
 knitr::opts_chunk$set(

vignettes/datatable-keys-fast-subset.Rmd

@@ -9,6 +9,10 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-keys-fast-subset.html)
+
 ```{r, echo = FALSE, message = FALSE}
 require(data.table)
 knitr::opts_chunk$set(

vignettes/datatable-programming.Rmd

@@ -9,6 +9,10 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-programming.html)
+
 ```{r init, include = FALSE}
 require(data.table)
 knitr::opts_chunk$set(

vignettes/datatable-reference-semantics.Rmd

@@ -9,6 +9,10 @@ vignette: >
   \usepackage[utf8]{inputenc}
 ---
 
+Translations of this document are available in
+
+* [French](https://rdatatable.gitlab.io/data.table/articles/fr/datatable-reference-semantics.html)
+
 ```{r, echo = FALSE, message = FALSE}
 require(data.table)
 knitr::opts_chunk$set(