我试图在rmarkdown中生成一个可以产生多种(自然)语言输出的文档,它应该从data.frame中的一个翻译中提取文本.
data.frame应包含每种语言的列以及每行上相同文本的翻译,例如
EN <- c('title', 'author', 'a sentence')
FR <- c('titre', 'auteur', 'une phrase')
translation <- data.frame(EN, FR, stringsAsFactors = FALSE)
应该可以格式化提取的文本,例如,
# [desired code here]
应该产生和rmarkdown标题.
编辑：理想情况下,我们可以在YAML前端指定语言
最佳答案 您可以按如下方式执行此操作:(有关更多乳胶选项,请参阅ps)
为什么？ YAML标题逐行评估:) – 见here
---
params:
lang: EN
lang: "`r switch(params$lang, DE = 'de-DE', EN = 'en-US')`"
output: pdf_document
toc: 1
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
lswitch <- function(lang, ...){
switch(lang, ..., stop("No translation privided"))
}
```
# `r lswitch(params$lang, DE = "Dies ist der Titel", EN = "this is the title")`
`r lswitch(params$lang,
DE = "Die folgende Abbildung zeigt die Funktion $f(x) = x^2$",
EN = "The following plot shows the function $f(x) = x^2$"
)
`
```{r plot1_cap, include=FALSE}
plot1_cap <- lswitch(params$lang, DE = "Tolle Abbildung", EN = "Great plot")
```
```{r plot1, fig.cap= plot1_cap}
plot(seq(-5, 5, length.out = 50), seq(-5, 5, length.out = 50)^2,
type = "l", xlab = "x", ylab = "f(x)")
```
# `r lswitch(params$lang, DE = "Zweiter Titel", EN = "Second Title")`
`r lswitch(params$lang,
DE = "Zweiter Abschnitt",
EN = "Second paragraph"
)
`
这导致了
如果您将yaml-header更改为
---
params:
lang: DE
lang: "`r switch(params$lang, DE = 'de-DE', EN = 'en-US')`"
output: pdf_document
toc: 1
---
你得到
PS：更多乳胶选项
如果要使用特定语言包,可以在YAML标题中添加以下内容:(参见https://stackoverflow.com/a/29163496/3301344)
---
header-includes:
- \usepackage[ngerman]{babel}
---
