`event_data("plotly_relayout")` doesn't refresh when a plot is redrawn about plotly.r HOT 2 CLOSED

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("myplot"),
  selectInput("color_choice",
    label = "Choose a new plot color to redraw the plot:",
    choices = c("red", "green", "blue")
  ),
  div("plotly_relayout:"),
  verbatimTextOutput("relayout"),
  div("xbounds:"),
  verbatimTextOutput("xbounds_out"),
  div("Data currently within plot bounds:"),
  verbatimTextOutput("table")
)

server <- function(input, output, session) {
  xbounds <- reactiveVal(NULL) # NULL indicates autorange

  output$myplot <- renderPlotly({
    p <- plot_ly(faithful,
      type = "scatter",
      mode = "markers",
      x=~eruptions,
      y=~waiting,
      color = I(input$color_choice)
    ) %>% rangeslider()
    xbounds(NULL) # The plot resets to autorange when redrawn
    return(p)
  })

  observe({
    d <- event_data("plotly_relayout")
    if (isTRUE(d$xaxis.autorange)){
      xbounds(NULL)
    } else if (isTruthy(d$xaxis.range)) { # As triggered by the rangeslider
      xbounds(c(d$xaxis.range[1], d$xaxis.range[2]))
    } else if (isTruthy(d[["xaxis.range[0]"]])) { # As triggered by the plot
      xbounds(c(d[["xaxis.range[0]"]], d[["xaxis.range[1]"]]))
    }
    # otherwise, do NOT update the bounds, since relayout will also be
    # triggered by e.g. dragmode/hovermode updates or the window resizing
  })

  output$relayout <- renderPrint({
    return(event_data("plotly_relayout"))
  })

  output$xbounds_out <- renderPrint({
    return(xbounds())
  })

  output$table <- renderPrint({
    data <- faithful %>% dplyr::arrange(eruptions)
    bounds <- xbounds()
    if (is.null(bounds)) {
      data
    } else {
      data %>% dplyr::filter(dplyr::between(eruptions, bounds[1], bounds[2]))
    }
  })
}

shinyApp(ui = ui, server = server)