连接多个用户的 R 闪亮会话

Question

最小的可重现示例：

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)

每个按钮模拟运行一些长时间的 CPU 密集型算法。

1. 运行应用程序并在一个浏览器选项卡上打开会话。
2. 打开另一个浏览器选项卡，其中包含正在运行的应用程序的另一个会话。
3. 在第一个选项卡中启动 Run 1。转到第二个浏览器选项卡并启动 Run 2。

问题： 第二个按钮观察者不会独立启动。它一直等到第一个会话中的第一次运行完成。我认为闪亮的会话是独立的。每个 R 会话中，闪亮如何处理多个闪亮会话？如果多个用户想同时连接到应用程序怎么办？

如何处理同时运行同一个应用的多个用户？ 谢谢

Answer 1

限制每个工作进程的连接数，即为每个用户提供自己的 R 工作进程。您可以通过将每个工作进程允许的并发连接数设置为 1 来做到这一点。

如果您通过 shinyapps.io 部署您的应用程序，请参阅此处的说明和更多背景信息： https://shiny.rstudio.com/articles/scaling-and-tuning.html

如果您要部署到自己的闪亮服务器，请参阅此处的说明和更多背景信息： https://support.rstudio.com/hc/en-us/articles/220546267-Scaling-and-Performance-Tuning-Applications-in-Shiny-Server-Pro

最小的工作示例：

library("shiny")

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

server <- function(session, input, output) {

  observeEvent(input$button1, {

    withProgress(message = 'Run 1', detail = '', value = 0, {
        for (i in 1:15) {
            incProgress(1/15)
            Sys.sleep(0.25)
        }
    })

  })

  observeEvent(input$button2, {

    withProgress(message = 'Run 2', detail = '', value = 0, {
        for (i in 1:15) {
            incProgress(1/15)
            Sys.sleep(0.25)
        }
    })

  })
}

shinyApp(ui = ui, server = server)