在R Shiny中，如何对在模式对话框中呈现的对象运行观察函数？

library(shiny)

# 创建观察函数
observe_function <- function(object) {
  # 对对象进行操作和处理
  # 这里只是一个示例，可以根据实际需求进行相应的操作
  summary(object)
}

# 创建UI界面
ui <- fluidPage(
  actionButton("open_dialog", "打开模式对话框")
)

# 创建服务器逻辑
server <- function(input, output, session) {
  observeEvent(input$open_dialog, {
    # 创建模式对话框
    showModal(
      modalDialog(
        # 在模式对话框中呈现的对象
        plotOutput("plot"),
        
        # 在模式对话框中调用观察函数
        observe_function(iris)
      )
    )
  })
  
  # 在模式对话框中呈现的对象
  output$plot <- renderPlot({
    # 这里只是一个示例，可以根据实际需求进行相应的绘图操作
    plot(iris$Sepal.Length, iris$Sepal.Width)
  })
}

# 运行Shiny应用
shinyApp(ui, server)