Highcharter R软件包：选择拖动后防止图表上发生缩放事件

Question

我想对列进行拖动选择而不缩放。 我知道R中的highcharter程序包使用了javascript highcharts包装器，因此我尝试在R中应用javascript highcharts逻辑，但是似乎不起作用。 我也知道我必须使用“ event.preventDefault（）”来防止highcharts中的zoom选项，但是我不知道如何在R中使用它。 这是我的代码：

 library(shiny)
 library(highcharter)
 data("citytemp")

 hc <- highchart() %>%
  hc_chart(type="column",
           event= list(
             selection = JS(
               "function selectPointsByDrag(e) {

                 // Select points
                 Highcharts.each(this.series, function (series) {
                   Highcharts.each(series.points, function (point) {
                     if (point.x >= e.xAxis[0].min && point.x <= e.xAxis[0].max &&
                         point.y >= e.yAxis[0].min && point.y <= e.yAxis[0].max) {
                       point.select(true, true);
                     }
                   });
                 });

                 // Fire a custom event
                 Highcharts.fireEvent(this, 'selectedpoints', { points: this.getSelectedPoints() });

                 return false; // Don't zoom
               }"
             )
           ),
           zoomType= "xy") %>%
  hc_xAxis(categories = citytemp$month) %>%
  hc_plotOptions(
    series = list(
      borderWidth=0,
      dataLabels=list(enabled=TRUE),
      allowPointSelect= TRUE
    )
  ) %>%
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) 
hc

请帮助我，我已经尝试了一切！