R Shiny: Speichere vorherigen reaktiven Wert während der Verwendung von reactiveTimer

Question

Hier ist ein Spielzeug-Beispiel, in dem ich eine Zahl zwischen 1 und 10 jede Sekunde zeichne, und wo ich diese Zahlen nur anzeigen möchten, wenn die Differenz zwischen der tatsächlichen Anzahl hat wird nur gezogen und die vorher gezogene Zahl ist gleich 1. Wenn also die Folge der gezogenen Zahlen ist: [5,7,8,2,3]. Ich möchte sukzessive anzeigen [8,3]. Ich denke, es geht nur um reaktive Werte und isoliere Funktion, aber ich konnte nicht realisieren, was ich wollte. Meine gescheiterten Versuche in Kommentaren.

library(shiny) 


ui <- shinyUI(fluidPage(
    mainPanel(
    textOutput("time"), 
    textOutput("num") 
) 
)) 

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

    autoInvalidate <- reactiveTimer(1000) 
    timestamp<-reactive({ 
    autoInvalidate() 
    Sys.time() 
    }) 

    random_num<-reactive({ 
    autoInvalidate() 
    sample(x=seq(1,10),size = 1,replace = FALSE,pro) 
    }) 

# My attempt : obviously do not work 
# values <- reactiveValues(old=1) 
# observe({ 
#  if (random_num()==values$old) {values$display=random_num()} 
#  else {values$old=random_num()} 
# }) 

    output$time <- renderText({paste("time :",timestamp())}) 
    output$num <- renderText({paste("num :",random_num())}) 
    #My attempt : obviously do not work 
    # output$num <- renderText({paste("num :",isolate(values$display))}) 
} 

shinyApp(ui, server) 

Ich weiß, dass es eine question ist, die wie zu Mine aussieht, aber es ist ganz anders.

Answer 1

Hier ist ein Beispiel.

library(shiny) 

old <- NULL 

ui <- shinyUI(fluidPage(
    mainPanel(
    textOutput("time"), 
    textOutput("num"), 
    textOutput("num_raw") 
) 
)) 

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

    autoInvalidate <- reactiveTimer(1000) 

    timestamp<-reactive({ 
    autoInvalidate() 
    Sys.time() 
    }) 

    random_num<-reactive({ 
    autoInvalidate() 
    r <- sample(x=seq(1,10),size = 1,replace = FALSE) 
    }) 

    observe({ 
    output$time <- renderText({paste("time :",timestamp())}) 
    r <- random_num() 
    if (!is.null(old) && r - old == 1) { 
     output$num <- renderText({paste("num :",r)}) 
    } 
    output$num_raw <- renderText({paste("raw num : ", r)}) 
    old <<- r 
    }) 

} 

shinyApp(ui, server)