Почему Shiny reactiveValues ​​() не изменяется, как ожидалось?

Question

Я объявил R Shiny код:

################# Security Login, part of server.R in R Shiny App 
USER <- reactiveValues() 
USER$Logged <- FALSE 

## Some logic for login which changes USER$Logged to TRUE, eg. USER$Logged <- TRUE, this works well in changing to TRUE 

## Logout handler fails because it can change to FALSE, but then resets back to TRUE 
logoutHandler <- observeEvent(input$Logout, 
    USER$Logged <- FALSE 
} 

#This is the trace result. The number 1 or 0 is the value of input$Logout 
#"USER$Logged: FALSE 1" 
#"USER$Logged outside Handler: FALSE 1" 
#"USER$Logged outside Handler: TRUE 1" #Proof of reset 
#"USER$Logged outside Handler: TRUE 0" #Proof of reset 

В конце кода не будет работать больше. Сбой соединения происходит или ничего не происходит, просто сбрасывается обратно в TRUE и отбрасывает назначение FALSE.

Как это исправить?

Answer 1

Я не могу воспроизвести вашу ошибку, этот код работает для меня, поэтому ошибка может быть в некоторых ваших других логиках сервера.

library(shiny) 

ui <- shinyUI(fluidPage(
    actionButton('btn','go') 
)) 

server <- shinyServer(function(input, output){ 
    a <- reactiveValues(l=FALSE) 
    b <- reactiveValues() 
    b$l <- FALSE 

    observe({ 
    print(sprintf('Outisde, A: %s, B: %s',a$l,b$l)) 
    }) 

    observeEvent(input$btn,{ 
    print(sprintf('Inside [before], A: %s, B: %s',a$l,b$l)) 

    a$l <- TRUE 
    b$l <- TRUE 

    print(sprintf('Inside [after], A: %s, B: %s',a$l,b$l)) 
    }) 
}) 

shinyApp(ui=ui,server=server)