Flexdashboard无法在同一标记上呈现ggplotly和ggplot对象

library(flexdashboard)
library(ggplot2)
library(plotly)

# 创建ggplot对象
ggplot_obj <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point()

# 创建ggplotly对象
ggplotly_obj <- ggplotly(ggplot_obj)

# 在flexdashboard中显示
flexdashboard::flex_dashboard(
  title: "Flexdashboard示例",
  layout: flexdashboard::dashboardLayout(
    flexdashboard::column(
      width = 6,
      flexdashboard::plotly::plotlyOutput("plotly_output")
    ),
    flexdashboard::column(
      width = 6,
      flexdashboard::plotOutput("ggplot_output")
    )
  )
)

# 在标记中呈现ggplotly对象
output$plotly_output <- flexdashboard::renderPlotly({
  ggplotly_obj
})

# 在标记中呈现ggplot对象
output$ggplot_output <- flexdashboard::renderPlot({
  print(ggplot_obj)
})