Kann ich den alten Wert eines reaktiven Objekts speichern, wenn es sich ändert?

Question

Hinweis: Nachdem ich die Antwort gefunden hatte, formulierte ich die Frage neu, um sie klarer zu machen.

Manchmal in einer shiny App. Ich möchte einen Wert verwenden, der vom Benutzer für ein Widget ausgewählt wurde, sowie den vorherigen Wert, der für dasselbe Widget ausgewählt wurde. Dies könnte für reaktive Werte gelten, die von Benutzereingaben abgeleitet werden, wobei ich den alten und den neuen Wert haben möchte.

Das Problem ist, dass, wenn ich versuche, den Wert eines Widgets zu speichern, die Variable, die diesen Wert enthält, reaktiv sein muss oder nicht bei jeder Änderung des Widgets aktualisiert wird. Aber wenn ich den Wert in einem reaktiven Kontext speichere, gibt es immer den aktuellen Wert, nicht den vorherigen.

Wie kann ich den vorherigen Wert eines Widgets speichern, aber jedes Mal aktualisieren, wenn der Benutzer das Widget ändert?

Gibt es einen Weg, der die Verwendung eines actionButton nicht jedes Mal erfordert, wenn der Benutzer etwas ändert? Die Vermeidung einer actionButton kann wünschenswert sein, mit dem Hinzufügen von einem ist sonst nicht notwendig und schafft überschüssiges Klicken für den Benutzer.

Answer 1

Da die Session-Flush-Event-Methode für diesen Zweck zu brechen scheint, ist hier eine alternative Möglichkeit, es mit einem observeEvent Konstrukt und einer reaktiven Variablen zu tun.

library(shiny) 

ui <- fluidPage(
    h1("Memory"), 
    sidebarLayout(
    sidebarPanel(
     numericInput("val", "Next Value", 10) 
    ), 
    mainPanel(
     verbatimTextOutput("curval"), 
     verbatimTextOutput("lstval") 
    ) 
) 
) 

server <- function(input,output,session) { 
    rv <- reactiveValues(lstval=0,curval=0) 

    observeEvent(input$val, {rv$lstval <- rv$curval; rv$curval <- input$val}) 

    curre <- reactive({req(input$val); input$val; rv$curval}) 
    lstre <- reactive({req(input$val); input$val; rv$lstval}) 

    output$curval <- renderPrint({sprintf("cur:%d",curre())}) 
    output$lstval <- renderPrint({sprintf("lst:%d",lstre())}) 
} 
options(shiny.reactlog = TRUE) 
shinyApp(ui, server) 

Nachgeben:

Answer 2

aktualisieren Diese Antwort wurde vor dem Aufkommen des in shinyreactiveValues/observeEvent Modell veröffentlicht. Ich denke, dass die Antwort von @MikeWise der bessere Weg ist, dies zu tun.

Nach etwas Herumspielen ist das, was ich gefunden habe. Die ui.r ist nichts Besonderes

ui.r

library(shiny) 

ui <- shinyUI(fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectizeInput(inputId="XX", label="Choose a letter",choices=letters[1:5]) 
    ), 
    mainPanel(
     textOutput("Current"), 
     textOutput("old") 
    ) 
) 
)) 

"Current" wird die aktuelle Auswahl und "old" zeigt die vorherige Auswahl anzuzeigen.

In der server.r habe ich drei Schlüsselfunktionen verwendet: reactiveValues, isolate und session$onFlush.

server.r

library(shiny) 

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

    Values<-reactiveValues(old="Start") 

    session$onFlush(once=FALSE, function(){ 
    isolate({ Values$old<-input$XX }) 
    }) 


    output$Current <- renderText({paste("Current:",input$XX)}) 

    output$old <- renderText({ paste("Old:",Values$old) }) 
} 

Die server.r funktioniert wie folgt.

Zuerst wird Values$old mit der Funktion reactiveValues erstellt. Ich gab ihm den Wert "Start", um klar zu machen, was beim Laden passierte. Dann habe ich eine session$onFlush Funktion hinzugefügt. Beachten Sie, dass ich session als ein Argument in meiner server Funktion habe. Dies wird jedes Mal ausgeführt, wenn das reaktive System durchleuchtet wird - beispielsweise wenn der Benutzer die selectizeInput ändert. Wichtig ist, dass es ausgeführt wird, bevor input$XX einen neuen Wert erhält - der Wert hat sich also unter selectizeInput geändert, aber nicht unter XX.

Innerhalb der session$onFlush ich dann den ausgehenden Wert von XX zu Values$old zuweisen. Dies wird in einem isolate() getan, da dies verhindert, dass Probleme mit input$XX mit den neuen Werten aktualisiert wird.Ich kann dann input$XX und Values$old in den renderText() Funktionen verwenden.