Interactivité entre plusieurs sessions d'une même application R Shiny

Question

Je souhaite créer une application R Shiny capable de transmettre des informations d'une instance en cours à d'autres instances en cours d'exécution. Je n'ai jusqu'ici rien trouvé qui pourrait m'aider avec ceci, et j'espère faire bien au lieu de recourir à des variables globales et/ou écrire aux dossiers etc. (j'ai employé la variable globale dans mon exemple ci-dessous, que je sais est un mauvaise pratique, et je suppose que l'écriture dans des fichiers ne serait pas une bonne pratique non plus).

Ainsi, par exemple, supposons que j'ai mon App.R en cours d'exécution sur un serveur et Tim, Jack et John ont ouvert. Comment faire Tim voir ci-dessous, quand Jack et John utilisent également l'application simultanément et appuyez sur le bouton comme indiqué dans l'exemple ci-dessous?

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()) 
     }) 
    } 
) 

Exemple sortie désirée après plusieurs pressions de bouton des utilisateurs respectifs qui ont tous une instance d'application en cours d'exécution dans leurs navigateurs (tous avaient entrée nom unique de $ sélectionnée, mais évidemment un unique, ID de session serait mieux):

Toute idée serait grandement appréciée, merci!

Answer 1

J'ai testé votre code sur une instance de serveur brillante et cela fonctionne comme prévu: c'est-à-dire que je reçois une impression similaire à celle que vous demandez.

Je suis un peu confus re: que recherchez-vous exactement?

Quoi qu'il en soit, comme un commentaire général, je suis en désaccord que l'utilisation <<- est faux ou que global variables (en général ou dans une application brillante) sont mauvais. Ils ont leur place et, en effet, un cas d'utilisation typique consiste à transmettre des états à travers des sessions/utilisateurs.

Une alternative est d'utiliser shinyreactiveValues comme dans:

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 
}) 
... 
} 

Mais comme une note générale de prudence, ce type de conception, bien que possible, peut finalement apporter statefulness à l'application, augmente rapidement sa complexité et genre d'aller contre la simplicité du paradigme reactive.

Ma forte recommandation est de réfléchir sérieusement avant chaque étape sur cette route. J'ai eu l'expérience de l'application des applications brillantes qui ont rapidement augmenté en complexité avec la prolifération de ces states. Je devais suivre tous les changements d'états menant à des applications cassantes et difficiles à déboguer.