r语言 - 格式化附加标题Flexdashboard

Question

我试图创建一些灵活的仪表板，我有生成的所有输出，我只是卡住了一些格式问题。下面的代码模拟了我的实际项目，包括项目所需的包，其中一些对于REPEX来说是不必要的。

---
title: "REPEX flexdashboard"
output: 
flexdashboard::flex_dashboard:
vertical_layout: scroll
orientation: rows
---

```{r, echo = FALSE, message = FALSE, warning = FALSE}
library(tidyverse)
library(plotly)
library(igraph)
library(ITNr)
library(readxl)
library(flexdashboard)
library(knitr)
library(kableExtra)
library(grid)
library(gridExtra)
```

Introduction
=====================================  
Some text to place hold
First tab
===================================== 
<h3><center> The First Plot and table</center></h3>
Row
-------------------------------------

### Plot 1
```{r}
data <- data.frame(x = sample(0:10, 100, replace = TRUE),
y = sample(0:10, 100, replace = TRUE))
plot(data$x, data$y)
```

### Table 1
```{r}
data%>%
slice_max(x, n = 10)%>%
kable()%>%
kable_styling(bootstrap = "bordered")
```
Row{data-height = 50}
-------------------------------------
<h3><center> The Second Plot and table</center></h3>
Row
-------------------------------------
### Plot 2
```{r}
data <- data.frame(x = sample(0:10, 100, replace = TRUE),
y = sample(0:10, 100, replace = TRUE))
plot(data$x, data$y)
```

### Table 2
```{r}
data%>%
slice_max(x, n = 10)%>%
kable()%>%
kable_styling(bootstrap = "bordered")
```

有一个介绍页和多个选项卡。在第一个带有图表的标签上，第一个标题是"第一个图表"。看起来很棒，我想在每个选项卡中重复该格式多次。对于第二个图表和表格标题，我尝试将其放在单独的行中，并使用HTML将文本居中，然后设置行高以减少空间。我运气不太好，所以如果有人有任何解决方案或可行的替代方案，我将不胜感激。

Answer 1

找出我的问题，这是一个简单的解决办法。

对于我自己在我的计算机上，当设置flexdashboard行高度时，可以没有空格的高度命令。见下文

Row{data-height = 50} #This doesnt not work for me, there is no effect the row height
Row{data-height=50} # This works for me, note the removed white space

简单地删除该规范中的空白对我来说是有效的。这可能不是别人的情况，但这是在我的机器上工作。