r - flexdashboard 闪亮，无法正确显示

Question

我正在使用 Rstudio 和flexdashboard. 当我uiOutput在一个部分/列中使用两次时，无法正确显示。输出之间似乎有很大的空白，并且输出的第二部分在列/应用程序中几乎不可见。任何解决方案。screendump 的代码示例链接如下。

---
title: "XXX Dashboard "
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny
---
---

```{r}
library(rsconnect)
library(httr)
library(tidyverse)
library(flexdashboard)
```
### tester
```{r}
output$test <- renderUI({
  #cat("test5")
      str <- list(
      paste0("testing layout", collapse = " "),
      "\n")
    HTML(paste(str))
    })

htmlOutput("test")

output$test2 <- renderUI({
  #cat("test5")
      str <- list(
      paste0("Again testing layout", collapse = " "),
      "\n")
    HTML(paste(str))
    })

htmlOutput("test2")

```

标签： rshinyflexdashboard