R markdown - flexdashboard -网格布局、滚动和选项卡集

Question

我正在尝试弄清楚如何将网格布局、行式标签集和在markdown / flexdashboard中滚动的功能结合起来。

​

​

我想要实现的是，标签3应该在右边的标签1和2与向下滚动到标签4-6的能力(其中标签6应该在4/5的右边)。如下所示：

​

​

这个是可能的吗？

---
title: "Test"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: scroll

---

```{r setup, include=FALSE}

库(Flexdashboard)

A {data-orientation=rows}
===================================================

Row {data-width=500 data-height=400 .tabset}
-----------------------------------------------------------------------

### Tab 1 {data-height=400 data-width=500}

```{r}

绘图(rnorm(10))

### Tab 2 {data-height=400 data-width=500}

```{r}

绘图(rnorm(10))

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

### Tab 3 {data-height=400 data-width=300}
Some text


Row {data-width=500 data-height=400 .tabset}
-----------------------------------------------------------------------

### Tab 4 {data-height=400 data-width=500}

```{r}

绘图(rnorm(10))

### Tab 5 {data-height=400 data-width=500}

```{r}

绘图(rnorm(10))

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

### Tab 6 {data-height=400 data-width=300}

Some text

Answer 1

以下是您的问题的可能解决方案

​

​

这是代码

---
title: "Test"
output: flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}

库(Flexdashboard)

需要(Shinydashboard)

需要(闪亮)

需要(情节)

A {data-orientation=rows}
===================================================

Row
-----------------------------------------------------------------------

```{r}

p1 <- plot_ly(x = 1:10，y= rnorm(10))

tabBox(width=5，tabPanel("Tab1"，p1)，tabPanel("Tab2")，height = "450px")

```{r}

tabBox(width=7，tabPanel("Tab3"，“一些文本”)，height = "450px")

Row
-----------------------------------------------------------------------

```{r}

p2 <- plot_ly(x = 1:10，y= rnorm(10))

tabBox(width=5，tabPanel("Tab4"，p2)，tabPanel("Tab5")，height = "450px")

```{r}

tabBox(width=7，id = "tabset4"，tabPanel("Tab6"，“一些文本”)，height = "450px")