Support `bindEvent()` for `renderReact()`

[kamilzyla]

Background

Since Shiny 1.6 you can use bindEvent() on render functions, e.g.:

shinyApp(
  ui = tagList(
    actionButton("render", "Render"),
    textOutput("message")
  ),
  server = function(input, output) {
    output$message <- renderText("Hello!") |> bindEvent(input$render)
  }
)

Goal

We'd like to support using bindEvent() on renderReact() as well, e.g. this should work:

library(shiny.react)

shinyApp(
  ui = tagList(
    actionButton("render", "Render"),
    reactOutput("message")
  ),
  server = function(input, output) {
    output$message <- renderReact("Hello!") |> bindEvent(input$render)
  }
)