如何使用可拖动绘图中的高度值更新sliderInput的值？

library(shiny)

ui <- fluidPage(
  sliderInput("slider", "Slider", min = 0, max = 100, value = 50)
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)

library(shiny)
library(plotly)

ui <- fluidPage(
  sliderInput("slider", "Slider", min = 0, max = 100, value = 50),
  plotlyOutput("plot")
)

server <- function(input, output) {
  output$plot <- renderPlotly({
    plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, type = "scatter", mode = "markers")
  })
}

shinyApp(ui, server)

library(shiny)
library(plotly)

ui <- fluidPage(
  sliderInput("slider", "Slider", min = 0, max = 100, value = 50),
  plotlyOutput("plot"),
  tags$script('
    // 获取sliderInput的DOM元素
    var slider = document.getElementById("slider");
    
    // 获取plotly图表的DOM元素
    var plot = document.getElementById("plot");
    
    // 监听plotly图表的高度变化事件
    plot.on("plotly_relayout", function(eventdata) {
      // 获取新的高度值
      var newHeight = eventdata["yaxis.range[1]"];
      
      // 更新sliderInput的值
      Shiny.setInputValue("slider", newHeight);
    });
  ')
)

server <- function(input, output) {
  output$plot <- renderPlotly({
    plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, type = "scatter", mode = "markers")
  })
  
  observeEvent(input$slider, {
    # 处理sliderInput的值变化事件
    # 可以在这里添加其他逻辑
    # ...
  })
}

shinyApp(ui, server)