Переключение между диалоговым окном и панелью просмотра в приложении Shiny

Question

Я хочу предоставить пользователю моего приложения Shiny App возможность переключаться между диалоговым окном и панелью просмотра в 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");
  })
}