R Shiny:在页面加载时在Highcharts (rCharts)中设置textrees

Question

我有一个闪亮的应用程序，用户rCharts库创建一个Highcharts图表。当应用程序第一次启动时，我希望应用程序放大到特定区域。

Highcharts方法是setextrees () http://api.highcharts.com/highcharts#Axis.setExtremes

下面是一个可以在交互式R中运行的最小示例:

library(shiny)
library(rCharts)
runApp(list(
  ui = pageWithSidebar(
    headerPanel("title"),
    sidebarPanel('sidebar'),
    mainPanel(showOutput("testPlot", "Highcharts"))
  ),
  server = function(input, output, session) {
    output$testPlot <- renderChart2({
      hc <- Highcharts$new()
      hc$xAxis(categories=c('Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su',
                            'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa', 'Su'))
      hc$series(data=c(7, 1, 4, 2.5, 3.25, 2.875, 3.0625, 3, 3, 3, 3, 3, 3, 3))
      setX <- "#! function() {
                 var cht = this;
                 var chtXAxis = this.xAxis[0];
                 setTimeout(function() {
                   console.log(chtXAxis.getExtremes().max); // correctly shows 13 in the console
                   chtXAxis.setExtremes(2, 10);
                   console.log(chtXAxis.getExtremes().max); // nothing in the console
                   cht.showResetZoom();
                 }, 2000)
               } !#"
      hc$chart(type="spline", zoomType='xy', events=list(load=setX))
      hc$set(domID="testPlot")
      return(hc)
    })
  }
))

您可以在控制台中看到getExtremes()方法是成功的，但是setExtremes()方法不起作用。我不知道为什么。

谁能帮助解决这个问题，或者给出一个建议，如何更好地设置加载时的极端?

Answer 1

Victorp的回复表明我的代码没有根本的问题，但是rCharts确实很老了。如果你的rCharts版本比今天的日期新，上面的代码应该可以工作，也许还有一些旧的版本。我不知道我做的是哪个版本，但它应该是几个月前的了。

感谢Victorp