Zoom resets moveable line in Shiny app

[ed02]

In the solution to this post (link below, by nirgrahamuk) about creating moveable lines with plotly, if you zoom in, the entire plot resets and the moved vertical line goes back to the origin. How should this be modified so the moved line stays where it was last dragged even when the zoom window changes on the plot? I ran the code from the posted solution as is:

Moveable Vertical Lines in a Shiny App

that said, I was able to repair it, sufficiently to then repair it.... library(shiny) library(plotly) ui <- fluidPage( plotlyOutput("new_plot") ) server <- function(input, output, session) { s <-reactive({ rv <- reactiveValues(x = NULL, y = NULL) rv$x <- as.vector(-50:50) rv$y <- as.vector(rv$x^2) d <- event_data("plotly_relayout", source = "trajectory") selected_point <- if (!is.null(d[["shapes[0].x0"]])) { xint <- d[["shapes[0].x0"]] xpt <- rv$x[which.min(abs(rv$x - xint))] list(x = xpt, y = rv$y[which.min(abs(rv$x - xint))]) } else { list(x = min(rv$x), y = rv$y[which(rv$x == min(rv$x))]) } prin…

Thanks for any help on this!