R Shiny 能否为两个同时进行交互的用户显示不同的视图？

通常，Shiny 服务器会为各个用户生成单独的实例，以便多个人可以同时单独使用同一个应用程序。这个答案展示如何使用 Shiny 制作一个简单的多用户聊天室，以及这个答案解释了多个用户如何通过直接 IP 连接到同一会话。我让聊天示例正常工作，两个用户在发送消息时都会立即看到消息，因此可以互相聊天。

我想知道是否有可能将 Shiny 用于（实验）场景，其中两个用户相互交互，会看到不同的GUI 元素在各自的屏幕上，以及不同的输出，具体取决于轮到谁“玩”。例如，如果用户1是“起始玩家”，他会看到三个按钮并单击其中一个，将为用户2弹出一个相关图像（不是用户1），用户2单击一个按钮（他认为与图像匹配），然后弹出user1的相关图片，user1点击“正确”/“不正确”按钮发送反馈；他们不应该看到谁点击了哪个按钮，也不应该看到另一个人看到的图像（如果实际上隐藏 GUI 元素很棘手，那么间歇性地变灰/禁用它们也可以，只要他们看不到另一个人所做的事情）。

或者更形象地表示：

round 1
user1                   user2
director                guesser

what they see, step by step:
1. [three buttons]      [ (blank) ]
2. [clicks one]         [ ]
3  [ ]                  [sees an image & 3 buttons]
4. [ ]                  [clicks a button]
5. [sees image,2 butns] [ ]
6. [clicks button]      [ ]
7. [ ]                  [sees the message "correct" or "incorrect"]

round 2
user1                   user2
guesser                 director
1. [ ]                  [three buttons]
...
...

在下一轮中，他们会交换角色，依此类推，进行多轮。

我见过使用 Javascript（jsPsych、nodegame）和 Python（psychopy、oTree）实现的类似实验场景，但我希望了解是否可以在 Shiny 中实现，如果可以，如何实现。

几年前，当我将“Risk”（棋盘游戏）实现为一个闪亮的应用程序时，我遇到了同样的挑战。

快速概述一下我当时的做法：

如果您使用session服务器函数中的参数，可以创建本地/秘密reactiveValue()在该会话内/该用户。

接下来可以设置reactiveValues()在可跨会话访问的“全局信息”服务器功能之外。

后一种方法可能更令人惊讶，因为我们通常“被迫”定义reactive服务器功能内的行为。但它确实有效，请参阅下面的示例。

可重现的例子：

library(shiny)

ui <- fluidPage({
  uiOutput("moreControls")
})

global <- reactiveValues(info  = "public info: I can be seen by everyone", amountUser = 0, userIdToPlay = 1)

server <- function(input, output, session) {
  local <- reactiveValues(secret = paste0("My secret number is ", sample(6, 1)))
  
  observe({
    isolate(global$amountUser <-  global$amountUser + 1)
    isolate(local$userId <- global$amountUser)
  })
  
  observeEvent(input$finish,{
    global$userIdToPlay <- 3 - global$userIdToPlay # assumes two players (for MVE)
  })
  
  output$moreControls <- renderUI({
    global$userIdToPlay
    isolate({
      if(local$userId == global$userIdToPlay){
        return(
          tagList(
            h2("my time to play"),
            selectInput("a", "b", letters),
            actionButton("finish", "finish")
          )
        )
      }else{
        return(
          h2("not my time to play")
        )
      }
    })
  })
  
}
shinyApp(ui, server)