为什么我的 DT 表不生成 tabBox/tabPanel?

问题描述

这是一个我似乎无法解决的问题,我不确定它为什么会发生。

我的目标是使用 tabBox 将各种表格放在一个“flexdashboard 区域”中,而使用 {.tabset} 不是一种选择。但似乎当我开始使用 tabPanels 时 - 只有第一个面板会生成我的 DT 表,而第二个不会。表的标题正在生成,但我无法弄清楚为什么实际数据不会。

如有任何帮助,我将不胜感激。

这是我看到的: 表 1

enter image description here

表2

enter image description here

这是我的代码

---
title: "Example Demo Dash"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny 
---


# Tab 1

```{r setup,include=FALSE}
library(readr)
library(DT)
library(dplyr)
library(rsconnect)
require(flexdashboard)
library(shiny)
library(shinydashboard)
require(plotly)
```

Column 
-----------------------------------------------------------------------

### Tab 1 Graph

# Tab 2

Column {data-width=450}
-----------------------------------------------------------------------

### Cars Tab 1  

```{r}


cars <- datatable(mtcars,rownames = FALSE,options = list(
            dom = 't',paging = FALSE,info = FALSE,scrollY = FALSE,sort = FALSE
            
      )
) 


iris <- datatable(mtcars,sort = FALSE
            
      )
) 
```

```{r}
tabBox(width=18,height = "500px",#Dec 2020
       tabPanel("Cars 1",cars),#Jan 2021
       tabPanel("Iris",iris))
```


### Col 2 Row 2


Column {data-width=200}
-----------------------------------------------------------------------

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 1

### Tab 2 Col 2 Graph 3

### Tab 2 Col 2 Graph 3

Column {data-width=350}
-----------------------------------------------------------------------
### Col 3 graph 1

### Col 3 graph 2

# tab 3

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)