基于数据表长度的flexDashboard动态调整行的动态调整

Question

我正在在R中开发一个flexdashboard。 我了解我们设置了诸如行高的起始维度，并且Shiny可以自动调整的大小，同时保持起始比例的比例。

我可以动态地修改比例比例吗？ < br> 假设基于显示的长度数据？

 

在此可再现示例中，下面有一个数据表和一个图表。

DataTable具有2个长度选项。

我希望调整数据容器的大小以使其与桌子齐平，并留出更多的图表空间。相反，如果我们选择最大的长度，我希望完全显示该数据表（没有滚动），从而减少显示的图表。

例子：

---
title: "Dynamic Resizing?"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    runtime: shiny
    
---

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

Row {data-height=500}
-----------------------------------------------------------------------

### The Table

```{r}

output$my_table <-  DT::renderDataTable({
  
    DT::datatable(mtcars %>% head(20), 
                  options = list( dom = 'Blfrt'
                                  , searching = FALSE
                                  , lengthMenu = c(5, 10)
                                  , pageLength = 5
                                  , scrollY = 300
                                  , scrollCollapse = FALSE
                                  ))
  
  })

dataTableOutput('my_table')

```

Row {data-height=500}
-----------------------------------------------------------------------

### The Chart

```{r}

output$my_chart <- renderPlot({
  
ggplot(mtcars, aes(x=hp, y=mpg, color=cyl)) +
  geom_point(size=3)


})

plotOutput("my_chart") 

```

 

我已经测试了很多事情，没有任何成功。

显然，行高度是硬编码：行{data-height = 500} 。 也许有一种简单的方法可以动态？

我可以写：

 Row {data-height= `r variable` }  

但是它没有反应性。

我可以创建一个反应价值，可以将其输入标题部分，但对于行高度不起作用。我猜 RenderText 不适合“值”。

例如：

```{r}
h <- reactiveValues(val = 200)
```

Row {data-height=`r renderText(h$val)`}
-----------------------------------------------------------------------

### The Table `r renderText(h$val)`

否则，此问题与我的相似，但是诀窍是将两个图表组合成一个图表，这在我的情况下不适用，因为它是带有图表的表。

 

由于我的问题涉及数据。 flexdashboard中的表高度？。它涉及CSS，其中包含此代码：

<style>
.dataTables_scrollBody {
    max-height: 100% !important;
}
</style>

但是它似乎不起作用。我感觉到答案可能是通过CSS来的，但无法弄清楚。...

任何专家都可以加入吗？我缺少这一点很明显。

提前致谢！