Question

我有一个简单的闪亮应用程序（由两个文件组成，server.r和ui.r），它们使用带有Highcharts的rCharts包。

它运行得很好，但是如果我选择让所有的条形图消失然后再次显示它们，它们就不会重新缩放。这是代码，它基于rCharts＆＃39;中提供的一个简单示例。 GitHub：

ui.r

require(rCharts)
options(RCHART_LIB = 'highcharts')
shinyUI(pageWithSidebar(
  headerPanel("App title"),
  sidebarPanel(
    helpText('A simple text.')
  ),
  mainPanel(chartOutput("chart",'highcharts'))
  ))

server.r

require(rCharts)
options(RCHART_WIDTH = 900)
options(RCHART_HEIGHT = 500)
shinyServer(function(input, output) {
  output$chart <- renderChart2({
    a <- hPlot(freq ~ Exer, data = plyr::count(MASS::survey, c('Sex', 'Exer')), 
               type = 'column', group = 'Sex', group.na = 'NA\'s')
    a$plotOptions(column = list(dataLabels = list(enabled = T, rotation = -90, 
                  align = 'right', color = '#FFFFFF', x = 4, y = 10)))
    a$xAxis(labels = list(rotation = -45, align = 'right'), replace = F)
    return(a) })
  })

要运行该应用，我只需输入runApp('appFolder')。

我无法直接发布图片，因为至少需要10个声望点，但这里是一张图片链接，显示我正在谈论的不良展示：http://imgur.com/0Xfronr 。要获取此错误，只需尝试隐藏所有数据系列，然后取消隐藏它们。

即使尝试了各种各样的事情（其他设置，其他数据，其他实现，其他浏览器），问题仍然存在。但是，当我只显示带有rCharts的条形图时（如简单的HTML页面，而不是闪亮的应用程序），这种重新缩放问题就会消失。我认为它来自闪亮和rCharts之间的互动，但我无法找出错误以及如何解决它。

在使用Highcharts进行隐藏/取消隐藏后，rCharts闪亮，没有重新缩放条形图

0 个答案: