Css 更改Flexdashboard中ValueBox的高度

我正在制作一个面向列的Flexdashboard，它包含四个值框以及图形和表格。值框以前有一定的高度，但我最近更改了其中一个值框中的信息，现在所有框的高度都变大了。下面是代码如何查找四个值框

vb1<-valueBox(Parkvorgaenge_Insgesamt,"Parkvorgänge Insgesamt", icon = "fa-car", color = "warning")
vb2<-valueBox(Parkstunden_Insgesamt,"Parkstunden Insgesamt", icon = "fa-hourglass-end", color = "warning")
vb3<-valueBox(Einnahmen_Insgesamt,"Einnahmen Insgesamt", icon = "fa-eur", color = "warning")
vb4<-valueBox(Durchschnittliche_Parkdauer,"Durchschnittliche Parkdauer", icon = "fa-clock", color = "warning")

我曾尝试通过三个hashtag（如#####{data height=some number}）中的每一个添加

{data height=some number}

，但这并没有改变高度。我在网上查过，但没有直接的答案

---

简而言之，如何控制Flexdashboard中值框的高度？

您可以使用css更改值框的高度：

---
title: "Tabset Column"
output:
  flexdashboard::flex_dashboard
runtime: shiny
---

```{css}
.value-box {
  height: 200px;
}

```

```{r global, echo = FALSE}
library(shiny)
library(flexdashboard)

vb1<-valueBox(2000,"Parkvorgänge Insgesamt", icon = "fa-car", color = "warning")
vb2<-valueBox(541515,"Parkstunden Insgesamt", icon = "fa-hourglass-end", color = "warning")
vb3<-valueBox(30000,"Einnahmen Insgesamt", icon = "fa-eur", color = "warning")
vb4<-valueBox(5.4,"Durchschnittliche Parkdauer", icon = "fa-clock", color = "warning")
```

Column 
-----------------------------------------------------------------------

### 

```{r}
renderValueBox(vb1)
```

### 

```{r}
renderValueBox(vb2)

```


### 

```{r}
renderValueBox(vb3)

```

### 

```{r}
renderValueBox(vb4)

```

这将是应用程序本身：

---
title: "Tabset Column"
output:
  flexdashboard::flex_dashboard:
    css: styles.css
runtime: shiny
---

```{r global, echo = FALSE}
library(shiny)
library(flexdashboard)

vb1<-valueBox(2000,"Parkvorgänge Insgesamt", icon = "fa-car", color = "warning")
vb2<-valueBox(541515,"Parkstunden Insgesamt", icon = "fa-hourglass-end", color = "warning")
vb3<-valueBox(30000,"Einnahmen Insgesamt", icon = "fa-eur", color = "warning")
vb4<-valueBox(5.4,"Durchschnittliche Parkdauer", icon = "fa-clock", color = "warning")
```

Column 
-----------------------------------------------------------------------

### 

```{r}
renderValueBox(vb1)
```

### 

```{r}
renderValueBox(vb2)

```


### 

```{r}
renderValueBox(vb3)

```

### 

```{r}
renderValueBox(vb4)

```

---
标题：“选项卡集列”
输出：
flexdashboard:：flex_仪表板：
css:styles.css
运行时间：闪亮
---
```{r全局，echo=FALSE}
图书馆（闪亮）
库（flexdashboard）
vb1I编辑了您的答案，将css添加到.Rmd中，这是一个很棒的Rmarkdown/Shining css技巧。谢谢你的建议！
.value-box {
  height: 200px;
}

---
title: "Tabset Column"
output:
  flexdashboard::flex_dashboard:
    css: styles.css
runtime: shiny
---

```{r global, echo = FALSE}
library(shiny)
library(flexdashboard)

vb1<-valueBox(2000,"Parkvorgänge Insgesamt", icon = "fa-car", color = "warning")
vb2<-valueBox(541515,"Parkstunden Insgesamt", icon = "fa-hourglass-end", color = "warning")
vb3<-valueBox(30000,"Einnahmen Insgesamt", icon = "fa-eur", color = "warning")
vb4<-valueBox(5.4,"Durchschnittliche Parkdauer", icon = "fa-clock", color = "warning")
```

Column 
-----------------------------------------------------------------------

### 

```{r}
renderValueBox(vb1)
```

### 

```{r}
renderValueBox(vb2)

```


### 

```{r}
renderValueBox(vb3)

```

### 

```{r}
renderValueBox(vb4)

```