2

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

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

您将在下面找到一个可重复的小示例，该示例从他的GitHub 页面重用 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 的最新开发版本，而不是最新的稳定版本。因此，我不能保证一切都按预期进行。但是，如果有人找到解决此问题的解决方案/解决方法，我会很感兴趣。

谢谢！

4

1 回答 1

4

与 Shiny 开发版中的使用有关jQuery 1.10.1。请参阅此 SO 问题以了解详细信息。

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

于 2014-01-27T22:14:32.650 回答