單個運行的多個會話之間的交互R Shiny應用程序

Question

我想構建一個R Shiny應用程序，它能夠將信息從一個運行實例傳遞到其他可能的運行實例。到目前爲止，我還沒有找到任何可以幫助我的東西，我希望能夠做到這一點，而不是訴諸全局變量和/或寫入文件等（我在下面的示例中使用了全局變量，我知道它是一個不好的做法;我懷疑寫文件也不是一個好習慣）。

因此，舉例來說，假設我有一臺服務器和添，傑克和約翰有它開上運行我的App.R。如何使Tim看到下面的時候，插孔和約翰也在同時使用該應用程序，並按下按鈕如下面的例子所示？

App.R：從誰都有一個應用程序實例在其瀏覽器中運行的各個用戶的多個按鈕按下後

library(shiny) 

# Somehow interactively visible variable? (I know global variables are bad, I wouldn't want to use such) 
txt <<- "" 

shinyApp(
    ui = fluidPage(
     textInput("name", "User name", value="USERNAME"), 
     actionButton("button", "Button"), 
     htmlOutput("text") 
    ), 
    server = function(input, output, session){ 
     a <- eventReactive(input$button, { 
      txt <<- paste(txt, "Button pressed by", input$name, "at", Sys.time(), "<br>") 
      txt 

     }) 
     output$text <- reactive({ 
      HTML(a()) 
     }) 
    } 
) 

例所需的輸出（全部具有獨特的輸入$名稱選擇，但顯然是獨一無二的會話ID會更好）：

任何有識之士將不勝感激，謝謝！

Answer 1

我已經在一個閃亮的服務器實例上測試了您的代碼，它的工作方式與預期相同：即，我得到的打印輸出類似於您要求的打印輸出。

我有點困惑re：你到底在找什麼？

不管怎樣，作爲一個一般性意見我會不同意，使用<<-是錯誤的，或者global variables（一般或有光澤的應用程序）是壞。

他們有自己的位置，實際上典型的用例是跨會話/用戶傳遞狀態。

另一種方法是使用shinyreactiveValues爲：

values <- reactiveValues() 
values$lognames <- '' 
... 
ui <- (...) 

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

a <- eventReactive(input$button, { 
values$lognames <- paste(values$lognames, "Button pressed by", input$name, "at", Sys.time(), "<br>") 
values$lognames 
}) 
... 
} 

但作爲一般值得注意的問題，這種類型的設計，雖然有可能，最終可能帶來有狀態到應用程序，迅速崛起的複雜性和違背reactive範式的簡單性。

我強烈的建議是在這條路上的每一步之前真正仔細思考。我有過實施閃亮應用的經驗，這些應用隨着這些states的泛濫而迅速升級。我不得不跟蹤所有狀態變化導致脆弱，難以調試的應用程序。