我想在一个Quarto文档中使用shiny并排显示两个图。我们可以使用一个fluidrow和两个column，但这似乎在闪亮的夸托中不起作用。下面是一些可复制的代码：

---
format: html
server: shiny
---

```{r}
#| panel: sidebar
sliderInput("bins", "Number of bins:", 
            min = 1, max = 50, value = 30)

#| panel: fill
fluidRow(
  column(width=4, plotOutput("distPlot")),
  column(width=4, plotOutput("distPlot2"))
)

#| context: server
output$distPlot <- renderPlot({
   x <- faithful[, 2]  # Old Faithful Geyser data
   bins <- seq(min(x), max(x), length.out = input$bins + 1)
   hist(x, breaks = bins, col = 'darkgray', border = 'white',
        xlab = 'Waiting time to next eruption (in mins)',
        main = 'Histogram of waiting times')
})
output$distPlot2 <- renderPlot({
  x <- faithful[, 2]  # Old Faithful Geyser data
   bins <- seq(min(x), max(x), length.out = input$bins + 1)
   hist(x, breaks = bins, col = 'red', border = 'white',
        xlab = 'Waiting time to next eruption (in mins)',
        main = 'Histogram of waiting times')
})

字符串
输出量：

![](https://i.stack.imgur.com/Lbwi1.png)
的数据
正如你所看到的，图是一个接一个地显示的。我不明白这一点，因为我们使用的是[custom layout](https://shiny.posit.co/r/articles/build/layout-guide/)，就像链接中解释的那样。所以我想知道是否有人知道如何在夸托文档中的闪亮应用程序中并排显示图？