Пакет Highcharter R: предотвратить масштабирование на графике после перетаскивания. Выделение - PullRequest
0 голосов
/ 14 февраля 2019

Я хочу сделать выбор перетаскивания по столбцам без масштабирования.Я знаю, что пакет highcharter в R использует оболочку javascript highcharts, поэтому я попытался применить логику javascript highcharts в R, но, похоже, она не работает.Я также знаю, что мне нужно использовать «event.preventDefault ()» для предотвращения опции масштабирования в старших диаграммах, но я не знаю, как использовать ее в 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

Пожалуйста, помогите мне, я все перепробовал!

...