R flexdashboard垂直滚动切断图形答案

【问题标题】：R flexdashboard vertical scroll cutting off graphsR flexdashboard垂直滚动切断图形
【发布时间】：2021-06-05 19:03:09
【问题描述】：

我正在尝试制作一个垂直滚动的 flexdashboard。有时，垂直滚动无法正常工作，下图被截断。这可以通过缩小窗口来“修复”，然后它会滚动，但显然这不是一个可接受的解决方案。

代码如下，以及滚动不良的屏幕截图。可以看到最终图形的内容被截断了。我还包含了所需滚动行为的图片。我知道代码 sn-p 有点长，但是当然滚动行为只有在适当数量的图表中才会显现出来。

这是所需的滚动行为：

下面是截取的滚动条和隐藏图：

---
title: "Untitled"
output: flexdashboard::flex_dashboard
orientation: row
vertical_layout: scroll

---

```{r setup, include=FALSE}
library(flexdashboard)
library(plotly)

dataset <- mtcars
```

Page 1
================================

Row
-----------------------------------------------------------------------


### ValueBox 1

```{r}
valueBox(42, caption = "my caption", icon = "fa-calendar")
```   
### ValueBox 2

```{r}
valueBox(250, caption = "my caption", icon = "fa-calendar")
``` 

### Additional Info


```{r}

sector_levels <- gaugeSectors(success = c(0, 40),
                              warning = c(40, 60),
                              danger = c(60, 100),
                              colors= c("red", "yellow", "green"))


g1 <- gauge(25, min = 0, max = 100, sectors = sector_levels)
g2 <- gauge(75, min = 0, max = 100, sectors = sector_levels)

g1
g2
```
###  Chart B 
```{r}
color_map <- c("4" = "red", "6" = "green", "8"  ="blue")


plot1 <- plot_ly(data = dataset, x = ~dataset$cyl, color = ~as.factor(cyl), colors = color_map,
  type = "histogram")

plot1 <- plot1 %>% layout(legend = c, xaxis = list(title = "Also a Test"))

plot1
```

【问题讨论】：

标签： r flexdashboard

【解决方案1】：

如果有人感兴趣，我已经通过在 CSS 中应用最小高度值来管理解决方法。需要的 CSS 代码是：

.chart-stage-flex{
  min-height: 500px;
}

这可能是一个 hack，但似乎可以按预期工作。

【讨论】：