Как сделать вертикальную линию в Plotly Draggable

Question

Я хочу добавить слой к графику с вертикальной линией, которую можно перетаскивать влево и вправо на графике, и чтобы сервер вычислил, сколько данных основного графика находится слева и справа от этой линии,Не уверен, возможно ли это в данный момент с заговором.

Я знаю, как рассчитать, что слева и справа от фиксированной линии на графике, поэтому вопрос только в следующем:

• Как сделать перетаскиваемую вертикальную линию перетаскиваемойв то есть Plotly

• Как прочитать координату x линии, когда она перетаскивается

, например, на простом графике, подобном этому здесь:

library(shiny)
library(plotly)

ui  <- 
  fluidPage(
   plotlyOutput('Plot1')
       )

server <- function(input, output, session) {  
  output$Plot1 <- renderPlotly({ plot_ly(data = mtcars, x = mtcars$mpg, y = mtcars$hp, type = 'scatter', 
                          mode = 'markers') %>%
    add_segments(x = 20, xend = 20, y = 0, yend = 350)  })

}

shinyApp(ui = ui, server = server)