конфликт макета вкладки flexdashboard с DT :: datatable и visNetwork при рендеринге в html

Question

Я пытаюсь создать flexdashboard в виде отдельного html, который бы имел граф visNetwork на одной вкладке и таблицу данных в другой таблице.

Я не могу получить данные для отображения какой-либо строки, пока я не добавлю куда-нибудь {vertical_layout: fill} или {vertical_layout: scroll} (я пробовал как на уровне yaml, так и на уровне вкладок), но если ясделайте это, тогда график visNetwork не заполняет страницу по вертикали.

Могу ли я что-нибудь сделать, чтобы график и таблица заполняли страницы?

вот воспроизводимый пример:

---
title: "reproducible example"
output: 
  flexdashboard::flex_dashboard:
    theme: bootstrap
    source_code: embed
---

```{r setup, include=FALSE}
library(tidyverse)
library(DT) # interactive tables
library(visNetwork)

mynodes <- data.frame(id = paste0("P",1:10))
myedges <- data.frame(from = unlist(mynodes), to =unlist(mynodes)) %>% 
  expand(from, to)
```

circle layout 
=======================================================================

```{r}
visNetwork(mynodes, myedges) %>%
  visIgraphLayout(layout = "layout_in_circle")
```


full table 
=======================================================================


##### full results for sets with min 5% reach

```{r}
DT::datatable(
  myedges ,
  filter = 'top'
) 
```

спасибо!