Я пытаюсь создать 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'
)
```
спасибо!