Rmarkdown中string :: str_view输出的高度

如何解决Rmarkdown中string :: str_view输出的高度

在滑动显示中打印stringr::str_view()的输出时，它会将随后的文本向下推。我想在stringr::str_view()调用输出之后得到文本。通过为stringr::str_view()函数创建的对象设置sizingPolicy$knitr$figure <- TRUE，并在块选项中指定stringr::str_view()，可以使文本紧靠fig.height输出。是否有一种更简便的方法来避免在运行stringr::str_view()之后在滑动的演示文稿中将随后的文本/代码向下推，而不必每次都手动设置fig.height和sizingPolicy$knitr$figure <- TRUE？

我在具有Windows 10平台的64位计算机上使用R版本4.0.2。

此代码会产生问题：

 ---
title: 'An example'
output:
  slidy_presentation
---

```{r}
library(tidyverse)
library(htmlwidgets)
```

```{r}
x <- c("apple","banana","pear")
pattern <- "an"
```

```{r}
str_view(x,pattern)
```

Here some text.

此代码解决了问题，但是我每次都必须手动设置图形的高度和尺寸调整策略：

  ---
title: 'An example'
output:
  slidy_presentation
---

```{r}
library(tidyverse)
library(htmlwidgets)
```

```{r}
x <- c("apple","pear")
pattern <- "an"
```

```{r,fig.height=2}
thewidget <- str_view(x,pattern)
thewidget$sizingPolicy$knitr$figure <- TRUE
thewidget
```

Here some text.