r - 使用knitr和latex在Beamer中编码 block 字体大小

Question

我正在尝试让一些 R 代码适合我的投影仪幻灯片。似乎无法通过 size 更改字体大小代码块的参数，就像您对其他 knitr 类型文档所做的那样。唯一的方法似乎是使用 \footnotesize在每个代码块之前。这令人沮丧，因为我有很多代码块，在很多情况下我不得不使用 \normalsize在我的 LaTeX 要点之后。

---
title: "Untitled"
output:
 beamer_presentation:
  includes:
   in_header: header.txt
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, size = "footnotesize")
```

## R Markdown

```{r}
summary(cars)
```

\footnotesize
```{r}
summary(cars)
```

在我的 header.txt (下)我尝试了 http://yihui.name/knitr/demo/beamer/ 中的几段代码但没有运气。

\ifdefined\knitrout
\renewenvironment{knitrout}{\begin{footnotesize}}{\end{footnotesize}}
\else
\fi

\makeatletter
\let\oldalltt\alltt
\def\alltt{\@ifnextchar[\alltt@i \alltt@ii}
\def\alltt@i[#1]{\oldalltt[#1]\footnotesize}
\def\alltt@ii{\oldalltt\footnotesize}
\makeatother

...但真的超出了我的深度 \def .

Answer 1

关注@Martin Schmelzer 的 output ，您可以独立更改代码字体大小和文本字体大小和对于整个文档通过将此添加到您的 rmarkdown 文件中:

def.chunk.hook  <- knitr::knit_hooks$get("chunk")
knitr::knit_hooks$set(chunk = function(x, options) {
  x <- def.chunk.hook(x, options)
  paste0("\n \\", "footnotesize","\n\n", x, "\n\n \\normalsize")
})

在此代码段中，您只需更改 "footnotesize"和 "normalsize"参数为您想要的任何字体大小；第一个是代码和输出字体大小，第二个是文本字体大小。
例如，代码为“tiny”，文本为“normalsize”:

---
output: beamer_presentation
---

```{r setup, include=FALSE}
def.chunk.hook  <- knitr::knit_hooks$get("chunk")
knitr::knit_hooks$set(chunk = function(x, options) {
  x <- def.chunk.hook(x, options)
  paste0("\n \\", "tiny","\n\n", x, "\n\n \\normalsize")
})
```

# Section 1
```{r}
summary(cars)
```
Text.

# Section 2
```{r}
summary(cars)
```
This works for every chunks.

给出了这个: