当与Shiny 0.8.0.99一起使用时,rCharts显示有限的功能

时间:2014-01-27 21:45:51

标签: r highcharts shiny rcharts

更新到最新的Shiny开发版本0.8.0.99似乎对我通过rCharts(版本0.4.2)创建的图表产生了一些负面影响。特别是,我在我的Shiny应用程序中使用Highcharts发现了以下两个问题:

  • 通过悬停
  • 激活后,工具提示文本不会消失
  • 如果激活/取消激活系列,则自动重新缩放x / y轴

下面你会发现一个可重复的小例子,重用了他GitHub page中的Ramanth Highchart示例。

这是独立的Highchart代码,完美无缺:

library(rCharts)

h1 <- Highcharts$new()
h1$chart(type = "spline")
h1$series(data = c(1, 3, 2, 4, 5, 4, 6, 2, 3, 5, NA), dashStyle = "longdash")
h1$series(data = c(NA, 4, 1, 3, 4, 2, 9, 1, 2, 3, 4), dashStyle = "shortdot")
h1$legend(symbolWidth = 80)
h1

如果您在最小的Shiny应用中嵌入相同的代码,则应该遇到上述问题:

library(shiny)
library(rCharts)

runApp(list(
  ui = basicPage(
    h2("Ramnath's GitHub example"),
    showOutput('myChart', 'highcharts')
  ),
  server = function(input, output) {
    output$myChart <- renderChart({
      h1 <- Highcharts$new()
      h1$chart(type = "spline")
      h1$series(data = c(1, 3, 2, 4, 5, 4, 6, 2, 3, 5, NA), dashStyle = "longdash")
      h1$series(data = c(NA, 4, 1, 3, 4, 2, 9, 1, 2, 3, 4), dashStyle = "shortdot")
      h1$legend(symbolWidth = 80)
      # Set dom attribute otherwise chart will not appear on the web page
      h1$set(dom = 'myChart')
      h1
    })
  }
))

我知道我使用的是Shiny的最新开发版本,而不是最新的稳定版本。因此,我不能保证一切都按预期工作。但是,如果有人找到解决此问题的解决方案/解决方法,我会感兴趣。

谢谢!

1 个答案:

答案 0 :(得分:4)

它与在Shiny的开发版本中使用jQuery 1.10.1有关。请参阅this SO question以了解详细信息。

我将在本周晚些时候highcharts更新主分支github,这应该可以解决这个问题。