如何在一个面板中包含renderPrint()和其他渲染

Question

我有以下闪亮的Rmarkdown应用程序：

---
title: "My First Shiny"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
---


```{r setup, include=FALSE}

库(Flexdashboard)

库(Tidyverse)

库(D3heatmap)

库(Ggplot2)

Rows {data-height=800}
-----------------------------------------------------------------------

### Plot1

Here is the attempt


```{r}

X <- datasets::iris，-5 # c(2:4,7),1:4

checkboxInput(“集群”，“应用集群”)

renderD3heatmap(

D3heatmap(mtcar，

      dendrogram = if (input$cluster) "both" else "none",

      scale="none",

      xaxis_height = 170,

      yaxis_width = 170,

      height=200,

      cexRow = 1.0, 

      cexCol = 1.0,

      k_row = 6,

      k_col = 6

      )

)

renderPrint({tibble：：as.tibble(Mtcar)})

*** 

Some commentary about Frame 2.

### Plot2

它会生成以下应用程序：

​

​

请注意，尽管我有这一行：

renderPrint({tibble::as.tibble(mtcars)})

它不会显示在Plot1面板的底部。什么才是正确的方法呢？

Answer 1

renderD3heatmap没有renderPlot用来将width和height参数传递给plotOutput的outputArgs，所以我认为您不能这样做。

相反，您可能希望使用orientation: columns并创建两列，然后拆分这两列：

---
title: "My First Shiny"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
---


```{r setup, include=FALSE}

库(Flexdashboard)

库(Tidyverse)

库(D3heatmap)

库(Ggplot2)

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

### Plot1

Here is the attempt


```{r}

checkboxInput(“集群”，“应用集群”)

renderD3heatmap(

D3heatmap(mtcar，

      dendrogram = if (input$cluster) "both" else "none",

      scale="none",

      xaxis_height = 170,

      yaxis_width = 170,

      height=200,

      cexRow = 1.0, 

      cexCol = 1.0,

      k_row = 6,

      k_col = 6

      ))

### Data

```{r}

renderPrint({tibble：：as_tibble(Mtcar)})

*** 

Some commentary about Frame 2.

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

### Plot2

​

​