Creating Shiny reactive variable that indicates which widget was last modified

Question

Let\'s say we have a set of widgets each with their own input label. How do we create a reactive object whose value is the character that represents the input ID of the last

Answer 1

You can use a reactive value created with reactiveValues() to store the name of the last used widget. Later use an observer to keep track of the activity of each widget and update the reactive value with the name of the last used widget.

In the folowing example, the name of the last used widget is stored in last_updated_widget$v and will active the verbatimTextOutput each time it changes. You can use last_updated_widget$v at any place in the server.

    library(shiny)
    runApp(list(
      ui = shinyUI(
            fluidPage(
                textInput('txt_a', 'Input Text A'),
                textInput('txt_b', 'Input Text B'),
                verbatimTextOutput("showLast")
            )
        ),
        server = function(input, output, session) {
            last_updated_widget <- reactiveValues( v = NULL)
            observe ({
                input$txt_a
                last_updated_widget$v <- "txt_a"
            })
            observe ({
                input$txt_b
                last_updated_widget$v <- "txt_b"
            })
            output$showLast <- renderPrint({
                last_updated_widget$v
            })
        }
    ))