Блестящий сеанс R с несколькими подключенными пользователями

Минимальный воспроизводимый пример:

library("shiny")

ui <- fluidPage(
  actionButton("button1", "Run 1"),
  actionButton("button2", "Run 2")
)

server <- function(session, input, output) {
  cat("session starts\n")
  observeEvent(input$button1, {
    cat("1 starts\n")
    Sys.sleep(15)
    cat("1 stops\n")
  })

  observeEvent(input$button2, {
    cat("2 starts\n")
    Sys.sleep(15)
    cat("2 stops\n")
  })
}

shinyApp(ui = ui, server = server)

Каждая кнопка имитирует выполнение некоторого длительного алгоритма с интенсивным использованием ЦП.

1. Запустите приложение и откройте сеанс на одной вкладке браузера.
2. Откройте другую вкладку браузера с другим сеансом для работающего приложения.
3. Запустите Выполнить 1 на первой вкладке. Перейдите на вторую вкладку браузера и запустите Выполнить 2.

Проблема: вторая кнопка-обозреватель не запускается самостоятельно. Он ожидает завершения первого запуска в первом сеансе. Я думал, что блестящие сеансы независимы. Как shiny обрабатывает несколько сеансов Shiny за один сеанс R? Что делать, если к приложению одновременно хотят подключиться несколько пользователей?

Как справиться с тем, что несколько пользователей одновременно запускают одно и то же приложение? Спасибо