Dans un réactif donné, existe-t-il une méthode/option pour obtenir le (s) élément (s) réactif (s) qui l'a déclenché?

Question

Par exemple, je pourrais simplement ajouter une instruction d'impression au début de mon réactif d'intérêt pour découvrir à chaque fois ce que d'autres réactifs l'ont déclenché?

reactive_example <— reactive({ 
    print(last_trigger()) 
    reactive_statement() 
    _#Rest of reactive logic..._ 
    )} 

Ensuite, par exemple, je verrais dans mon journal:

"last_trigger de reactive_example: reactive_statement"

Ce qui voudrait dire que dans ce cas particulier, il est reactive_statement() qui a déclenché reactive_example() à réexécuter.

Answer 1

Vous pouvez faire quelque chose comme ceci:

Pour surveiller tous les réactifs:

library(shiny) 

ui <- fluidPage(
    mainPanel(column(3, 
        sliderInput("one","one",min = 0,max = 5,step = 1,value = 1), 
        sliderInput("two","two",min = 0,max = 5,step = 1,value = 1), 
        verbatimTextOutput("x")) 
) 
) 

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

    v <- reactiveValues(last = NULL) 

    observe({ 
    lapply(names(input), function(x) { 
     observe({ 
     input[[x]] 
     v$last <- x 
     }) 
    }) 
    }) 

    output$x <- renderPrint({paste0("Last Value changed is: ", v$last)}) 
} 
shinyApp(ui, server) 

Pour surveiller les réactifs qui vous intéressent: Ci-dessous nous voulons seulement pour voir les changements dans les curseurs "un" et "deux" qui peuvent faire partie de certains réactifs comme reactive_example()

observe({ 
    lapply(c("one","two"), function(x) { 
     observe({ 
     input[[x]] 
     v$last <- x 
     }) 
    }) 
    }) 

Answer 2

Après quelques essais, j'ai écrit un paquet qui fait cela en analysant le journal réactif: https://github.com/glin/reactlog

Il y a un résumé de quelques autres idées que j'ai essayé sur la question GitHub.

https://github.com/rstudio/shiny/issues/1846#issuecomment-361831280