无法使用grid.arrange()和shinyDashboard在R闪亮界面上的一个对象中显示多个地块

install.packages("grid")
install.packages("shinydashboard")

library(grid)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(
        title = "地块1",
        plotOutput("plot1")
      ),
      box(
        title = "地块2",
        plotOutput("plot2")
      )
    )
  )
)

server <- function(input, output) {
  output$plot1 <- renderPlot({
    # 地块1的绘图代码
    plot(1:10, 1:10)
  })
  
  output$plot2 <- renderPlot({
    # 地块2的绘图代码
    plot(10:1, 10:1)
  })
  
  output$combined_plot <- renderPlot({
    # 使用grid.arrange()将地块1和地块2组合在一起
    grid.arrange(
      arrangeGrob(
        ggplotGrob(output$plot1),
        ggplotGrob(output$plot2),
        nrow = 1
      )
    )
  })
}

shinyApp(ui, server)