Rmarkdown和PDF输出：评估Latex部分内的Markdown

Question

如何使Latex代码中使用的降价代码得到评估？ （带有PDF（Latex）输出的Rmarkdown）

非常简单的最小示例：

\begin{center}
**should be bold text**
\end{center}

使用knitr编译后的.tex文件中的当前输出：

\begin{center}
**should be bold text**
\end{center}

预期：

\begin{center}
\textbf{should be bold text}
\end{center}

我很乐意找到一种方法来使此工作正常进行，因为我试图找到一种方法，可以通过kable / kableExtra传递小节/数据帧。表格单元格已经可以包含Latex代码，但不能包含降价代码，因为kable会将所有内容都转换为Latex结构。

在我看来，任何Latex代码块中的所有Markdown代码都不会得到评估。

[我知道我可以通过使用Latex Code来达到相同的结果，但是我更喜欢尽可能使用Markdown快捷方式。

编辑：

@@ duckmayr愿意提供另一个最小的示例，以查看如何自动更改R函数产生的Latex代码以使其起作用（连同建议并接受的答案thx）。因此，我正在寻找一种无论我使用什么R函数都可以工作的包装器（这里：一个基本的R示例和一个简单的kable测试；也可以是Stargazer或其他东西）

---
title: "Untitled"
output: 
  pdf_document:
    keep_tex: true
    df_print: kable
header-includes:
    - \let\Begin\begin
    - \let\End\end
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, results='hide', message=FALSE, warning=FALSE)
library(kableExtra)
```


```{r test1, results='asis'}
test = function(x=1){
  cat('\\begin{center}\n**test**\n\\end{center}')
}
test()
```

```{r test2, results='asis'}
kable(data.frame(x=c("**bold text**")),"latex")
```

Answer 1

几年前有人打开an issue on the pandoc GitHub repo about this，并且we can find there a workaround：为\begin{}和\end{}制作LaTeX同义词。因此，要在R Markdown中使用此功能，我们只需将其放入header-includes：

---
title: "Stack Overflow Answer"
author: "duckmayr"
date: "5/9/2020"
output:
    pdf_document:
        keep_tex: true
header-includes:
    - \let\Begin\begin
    - \let\End\end
---

\Begin{center}

**should be bold text**

\End{center}

LaTeX输出：

... Many initial lines skipped ...
\let\Begin\begin
\let\End\end

\title{Stack Overflow Answer}
\author{duckmayr}
\date{5/9/2020}

\begin{document}
\maketitle

\begin{center}

\textbf{should be bold text}

\end{center}

\end{document}

PDF输出：

更新：使用kable()之类的东西怎么办？

为了处理在带有kable()的R块中使用results='asis'之类的东西，我们需要修复kable()的输出；也就是说，我们需要将其\begin{}和\end{}标签更改为\Begin{}和\End{}，并且还需要确保不要最终将\\序列转换为textbackslash{} s。这是我们的处理方式：

---
title: "Untitled"
output: 
  pdf_document:
    keep_tex: true
    df_print: kable
header-includes:
    - \let\Begin\begin
    - \let\End\end
    - \newcommand{\Newrow}{\\}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, results='hide', message=FALSE, warning=FALSE)
library(kableExtra)
allow_markdown <- function(tex) {
    tex <- gsub("begin", "Begin", tex) ## fix \begin{} tags
    tex <- gsub("\\\\end", "\n\\\\End", tex) ## fix \end{} tags
    tex <- gsub("\\\\\\\\", "\\\\Newrow\n", tex) ## fix new row \\
    return(tex)
}
```

```{r test2, results='asis'}
kable(data.frame(x=c("**bold text**")),"latex")
```

```{r test3, results='asis'}
allow_markdown(kable(data.frame(x=c("**bold text**")), "latex"))
```

我们在带有\newcommand{\Newrow}{\\}的标题中添加了一个新的LaTeX命令，因此我们可以安全地添加\\，而无需将其转换为\textbackslash{}。这是必要的，因为我们如何诱使pandoc在\Begin和\End之间的环境中处理降价。

[我们还添加了一个R函数，用于修复kable()的LaTeX输出，该函数修复了开始和结束标签以及新行\\字符。

然后，我们得到以下LaTeX和PDF输出：

[header omitted]
\begin{document}
\maketitle

\begin{tabular}{l}
\hline
x\\
\hline
**bold text**\\
\hline
\end{tabular}

\begin{tabular}{l}
\hline

x\\

\hline

\textbf{bold text}\\

\hline

\end{tabular}

\end{document}