更新到最新的Shiny开发版本0.8.0.99似乎对我通过rCharts(版本0.4.2)创建的图表产生了一些负面影响。特别是,我在我的Shiny应用程序中使用Highcharts发现了以下两个问题:
下面你会发现一个可重复的小例子,重用了他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的最新开发版本,而不是最新的稳定版本。因此,我不能保证一切都按预期工作。但是,如果有人找到解决此问题的解决方案/解决方法,我会感兴趣。
谢谢!
答案 0 :(得分:4)
它与在Shiny的开发版本中使用jQuery 1.10.1
有关。请参阅this SO question以了解详细信息。
我将在本周晚些时候highcharts
更新主分支github
,这应该可以解决这个问题。