问题描述
---
title: "Untitled"
params:
color_target: H
output:
flexdashboard::flex_dashboard
---
```{r setup,include=FALSE}
library(tidyverse)
library(flexdashboard)
library(DT)
```
Color
==============================
Color
------------------------------
```{r}
diamonds %>%
filter(str_detect(color,params$color_target)) %>%
DT::datatable()
```
如屏幕截图所示,它生成的表仅显示3或4行,而不是默认的(例如)10行。
预期的行为:表格的许多页面包含10行,全部可见。
解决方法
问题(dah!)只是分配给表的垂直空间。所有行都在那里,如果我仔细观察的话,我会看到垂直滑块的。