在R shiny中，如何在模式对话框中加入滚动功能？

library(shiny)

ui <- fluidPage(
  actionButton("showDialog", "显示对话框")
)

server <- function(input, output, session) {
  observeEvent(input$showDialog, {
    showModal(
      modalDialog(
        title = "滚动对话框示例",
        size = "l",
        fluidPage(
          fluidRow(
            style = "max-height: 300px; overflow-y: auto;",  # 添加滚动样式
            column(
              width = 12,
              textOutput("scrollContent")
            )
          )
        ),
        footer = tagList(
          modalButton("关闭")
        )
      )
    )
  })
  
  output$scrollContent <- renderText({
    # 模拟长文本内容
    paste(rep("这是一行文本内容。", 100), collapse = " ")
  })
}

shinyApp(ui, server)