Shiny R中的modalDialog中的flipBox

Question

我正在尝试将flipBox放入Shiny中的modalDialog中，但是效果不佳。当出现modalDialog时，我通常可以看到flipBox的第一页，但是当我单击按钮以查看第二页时，什么也没发生。有人知道我是在做错什么，还是问题出在闪亮的一面，不可能那样做？

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    column(6, offset = 1, 
      fluidRow(uiOutput("button")),
      fluidRow(br()),
      fluidRow(flipBox(id = 1, "page 1", back_content = tagList("page 2")))
    )
  )
)

server <- function(input, output) {
  observeEvent(input$RunModalDialog, {showModal(uiOutput("ModalDialog"))})
  output$button      <- renderUI({actionButton("RunModalDialog", "RunModalDialog")})
  output$ModalDialog <- renderUI({modalDialog(flipBox(id = 1, "page 1", back_content = tagList("page 2")))})
}

shinyApp(ui, server)