r - Rmarkdown 中 stringr::str_view 输出的高度

Question

当输出以滑动的stringr::str_view()形式打印时，它会将后续文本向下推。我想在stringr::str_view()呼叫输出之后获得文本。我可以通过设置由函数创建的对象并在块选项中指定，使文本在stringr::str_view()输出 之后立即出现。有没有一种更简单的方法可以避免在运行后在滑动演示文稿中下推后续文本/代码，而无需每次都手动设置？sizingPolicy$knitr$figure <- TRUEstringr::str_view()fig.heightstringr::str_view()fig.heightsizingPolicy$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", "banana", "pear")
pattern <- "an"
```

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

Here some text.

标签： rtidyversestringrhtmlwidgets