Как можно избежать усечения таблицы (с данными) в контейнере flexdashboard дополнительным текстом? - PullRequest
Новая
       36

Как можно избежать усечения таблицы (с данными) в контейнере flexdashboard дополнительным текстом?

1 голос
/ 22 мая 2019

Если над объектом, доступным для данных, есть текст, таблица усекается, а нумерация страниц больше не отображается.

Можно ли изменить размер данных таким образом, чтобы он помещался в один контейнер flexdashboard? 

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

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

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r, results='asis'}
cat("This is a text\n\nThis is a text")
```

```{r}
mtcars %>% datatable(options = list(dom = 'tp'))
```

1 Ответ

1 голос
/ 22 мая 2019

У вас есть несколько вариантов. Вы можете использовать vertical_layout: scroll. Это позволит выполнять нумерацию страниц, сохраняя текст в том же контейнере, что и таблица. 

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

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

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r, results='asis'}
cat("This is a text\n\nThis is a text")
```

```{r}
mtcars %>% datatable(options = list(dom = 'tp'))
```

В качестве альтернативы вы можете использовать отдельные контейнеры для текста и таблицы. Возможно, вы захотите установить высоту контейнеров с помощью {data-height}, если вы сделаете это. 

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

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

Column {data-width=650}
-----------------------------------------------------------------------

### Text A {data-height=50}

```{r, results='asis'}
cat("This is a text\n\nThis is a text")
```

### Chart A

```{r}
mtcars %>% datatable(options = list(dom = 'tp'))
```
...