Input values with event priority aren't logged on every event

[cpsievert]

In the following app, the input$key is set on the client with event priority. As a result, the reactive value i gets bumped on every button press. Currently, recordTest() doesn't generate a setInput() call on every button press, meaning it's impossible to record tests for an app like this:

library(shiny)

ui <- fluidPage(
  tags$button("Input no binding", onclick = "Shiny.setInputValue('key', 'value', {priority: 'event'})"),
  textOutput("n")
)

server <- function(input, output, session) {
  
  i <- reactiveVal(0)
  
  observeEvent(input$key, {
    i(i() + 1)
  })
  
  output$n <- renderText({
    i()
  })
  
}

shinyApp(ui, server)

[cpsievert]

Closed via 315f064