在Shiny应用程序中的对话框窗口和查看器窗格之间切换

Question

我想让我的闪亮应用程序的用户可以从应用程序本身（例如使用按钮）在RStudio中的对话框窗口和查看器窗格之间切换。

我已经实现了一种解决方案，在该解决方案中，当您按下按钮时，该应用程序将停止，然后使用一个参数重新启动，以使其在其他位置启动。但是，这给了我一条错误消息（有意义）：

Warning: Error in shiny::runApp: Can't call `runApp()` from within `runApp()`. If your application code contains `runApp()`, please remove it.

app.R

initialize <- function (viewer="pane"){
  if(viewer=="dialog"){
    runGadget(viewer = dialogViewer())
  }
  else {
    runGadget(viewer = paneViewer())
  }
}

server.R

server <- function(input, output, session) {
  observeEvent(input$openInDialog, {
    stopApp();
    myApp::initialize(viewer="dialog");
  })
}