Highcharter setExtremes功能中的R(Highcharter setExtrem

我试图相当于按下一个按钮，用户在时间序列股票图表上设置极端。这里的故障：

上的图表顶部的按钮用户点击（我已经典型地编辑的“所有”，“1M”，“3M”的按钮在顶部）
当点击该按钮，在X轴（2个月）的自定义区域被放大了。例如，通过12月首次10月1日。眼下，变焦进入到图形的结束。

这非常类似于下面的链接。

设置X轴两极

我R代码里面，现在该按钮如下：

hc_rangeSelector(buttons=list(list(type='month', text='New', count=2)))

这是说我找了一个月的时间间隔变焦，文字是“新”，它显示了2个月。我见过setExtremes是我要找的功能，但我还没有看到它使用R.实施

你可以放置在chart.events.load选项的JavaScript函数Highcharter 。使用渲染器，你可以添加一个按钮，将使用setExtremes上点击功能。

演示中的jsfiddle（无Highcharter也不`R，数据是不同的，但按钮的功能是相同的）： http://jsfiddle.net/e69eLm6q/

代码在运行R

library("quantmod")

usdjpy <- getSymbols("USD/JPY", src = "oanda", auto.assign = FALSE)
eurkpw <- getSymbols("EUR/KPW", src = "oanda", auto.assign = FALSE)

hc <- highchart(type = "stock") %>% 
  hc_title(text = "Charting some Symbols") %>% 
  hc_add_series(data = usdjpy, id = "usdjpy", pointInterval = 36000000) %>% 
  hc_add_series(data = eurkpw, id = "eurkpw", pointInterval = 36000000) %>%
  hc_rangeSelector(buttons=list(list(type='month', text='New', count=2))) %>%
  hc_chart(
    events = list(
        load = JS("function(){
            var chart = this;

            chart.renderer.button('do stuff',200, 100)
                .attr({
                    zIndex: 3
                })
                .on('click', function () {
                    chart.xAxis[0].setExtremes(Date.UTC(1970, 4, 1), Date.UTC(1970, 6, 1));
                })
                .add();
        }")
    )
  )

hc