Почему макет графика из visnetwork в html слишком мал

Question

Когда я рендерил пример Rmd ниже, он выглядит примерно так (с Chrome, на самом деле, нет никакой разницы с Firefox)

Эта цифра слишком мала, и если я посмотрю на нужные мне "реальные" графики, высота будет слишком мала, а соотношение высота-ширина будет еще хуже.

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

---
title: "Untitled"
author: "author"
date: "9 Mai 2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Example

Here is a line of text...................................................................................................................................................................................................................................................................

```{r echo=FALSE}
require(visNetwork, quietly = TRUE)
# minimal example
nodes <- data.frame(id = 1:20)
edges <- data.frame(from = sample(c(1:20), 10), to = sample(c(1:20), 10))
visNetwork(nodes, edges, width = "100%", height = "100%") %>%
                               visNodes() %>%
                               visOptions(highlightNearest = TRUE) %>%
                               visInteraction(navigationButtons = TRUE, 
                                              dragNodes = FALSE,
                                              dragView = FALSE, zoomView = FALSE) %>%
                               visEdges(arrows = 'to')
```

Here is another line of text....................................................................................................................................................................................................................................................................

Answer 1

Я ожидал исправить это, используя некоторые параметры чанка, такие как out.height или же fig.height но по какой-то причине они этого не делают.

Однако вы можете установить фиксированную высоту для самого виджета, просто передав число height аргумент, который будет интерпретирован как пиксели:

```{r echo=FALSE}
require(visNetwork, quietly = TRUE)
# minimal example
nodes <- data.frame(id = 1:20)
edges <- data.frame(from = sample(c(1:20), 10), to = sample(c(1:20), 10))
visNetwork(nodes, edges, width = "100%", height = 700) %>%
                               visNodes() %>%
                               visOptions(highlightNearest = TRUE) %>%
                               visInteraction(navigationButtons = TRUE, 
                                              dragNodes = FALSE,
                                              dragView = FALSE, zoomView = FALSE) %>%
                               visEdges(arrows = 'to')
```