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

如何才能评估 Latex 代码中使用的 markdown 代码？ （带有 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 传递 tibble/dataframe 的方法。表格单元格已经可以包含 Latex 代码，但不能包含 Markdown 代码，因为 kable 将所有内容都转换为 Latex 结构。

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

我知道仅使用 Latex 代码就可以达到相同的结果，但我更喜欢尽可能使用 Markdown 快捷方式。

Edit:

@duckmayr 好心地提出查看另一个最小的示例，看看如何自动更改 R 函数生成的 Latex 代码以使其工作（以及建议和接受的答案，谢谢）。所以我正在寻找某种无论我使用什么 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")
```

有人打开pandoc GitHub 存储库上关于此的问题 https://github.com/jgm/pandoc/issues/3145几年前，以及我们可以找到解决方法 https://github.com/jgm/pandoc/issues/3145#issuecomment-302787889: 为 LaTeX 制作同义词\begin{} and \end{}。因此，要在 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}

乳胶输出：

... 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{} and \end{}标签到\Begin{} and \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"))
```

我们在标题中添加了一个新的 LaTeX 命令\newcommand{\Newrow}{\\}这样我们就可以安全地添加\\而不将它们转换为\textbackslash{}。这是必要的，因为我们如何欺骗 pandoc 来处理环境中的 markdown\Begin and \End.

我们还添加了一个 R 函数来修复 LaTeX 输出kable()修复开始和结束标签以及新行\\人物。

然后我们得到以下 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}