Broken code in Chapter 14: last changed input event

[DivadNojnarg]

In this part, some internal changes to shiny cause issues now and the code raises an error:

library(shiny)

ui <- fluidPage(
  tags$script(
    HTML("
      $(document).on(
        'shiny:inputchanged',
        function(event) {
          Shiny.setInputValue(
            'last_changed',
            {
              name: event.name,
              value: event.value,
              type: event
                .binding
                .name
                .split('.')[1]
            }
          );
      });"
    )),
  textInput("test", "Test"),
  verbatimTextOutput("last_changed")
)

server <- function(input, output) {
  output$last_changed <- renderPrint(input$last_changed)
}

shinyApp(ui, server)

A possible working patch:

$(document).on(
            'shiny:inputchanged',
            function(event) {
              console.log(event.name);
              if (event.name.match('(last_changed|clientdata)') === null) {
                Shiny.setInputValue(
                  '%s',
                  {
                    name: event.name,
                    value: event.value,
                    type: event.inputType,
                    binding: event.binding !== null ? event.binding.name : ''
                  }
                );
              }
          });