如何将显示模式对话框窗口保存在闪亮的指定位置

Question

----------试图将显示模式窗口页面保存为闪亮

 shinyApp(
        ui = basicPage(
        actionButton("show", "Show modal dialog")
         ),
  server = function(input, output) {
        observeEvent(input$show, {
        showModal(modalDialog(
                 title = "Important message",
                 "This is an important message!",
                  easyClose = TRUE,
                  footer = actionButton("save","save")
                       ))
                 })
               }
               )

##