如何稳定地在一个闪亮中显示多个 dygraph？答案

【问题标题】：How do I make stable displaying multiple dygraphs in one shiny?如何稳定地在一个闪亮中显示多个 dygraph？
【发布时间】：2016-03-03 14:59:14
【问题描述】：

我在一个 Shiny App 中使用了 2 个 R dygraphs。我观察到返回图表的问题，也就是说，有时它不会加载/显示其中一个 dygraphs，有时会。奇怪的行为。有没有人遇到过类似的情况？

上下文：

library(zoo)
library(dygraphs) 

...
tabName="time",
  fluidRow(
    tabBox(width = 350,
           tabPanel(title="Product", dygraphOutput("dygraph1")),
           tabPanel(title="Segment", dygraphOutput("dygraph2")) 
...

服务器

  })

  zoo<-structure(c(2252L, 2256L, 2256L, 2257L, 2259L, 2262L, 2262L, 
                2262L, 765L, 767L, 767L, 769L, 768L, 769L, 774L, 706L, 
                16239L, 16220L, 26184L, 26148L, 26091L, 26099L, 26118L, 
                12607L), .Dim = c(8L, 3L), .Dimnames = list(NULL, c("A", 
                "B", "C")), index = structure(c(16849, 16853, 16854, 
                16855, 16856, 16857, 16858, 16859), class = "Date"), class =     
                "zoo")

  zoo2<-structure(c(52L, 56L, 56L, 57L, 59L, 62L, 62L, 
                 62L, 65L, 67L, 67L, 69L, 68L, 69L, 74L, 76L, 
                 162L, 162L, 261L, 261L, 260L, 260L, 261L, 
                 126L), .Dim = c(8L, 3L), .Dimnames = list(NULL, c("D", "E",             
                 "F")), index = structure(c(16849, 16853, 16854,16855,  
                 16856, 16857, 16858, 16859), class = "Date"), class = "zoo")

  output$dygraph1<-renderDygraph({
    dygraph(zoo)%>%
    dyOptions(stackedGraph = TRUE, drawGrid = FALSE) %>%
    dyRangeSelector(height = 20)%>%
    dyHighlight(highlightSeriesOpts = list(strokeWidth = 3))

  })

  output$dygraph2<-renderDygraph({
    dygraph(zoo2) %>%
    dyOptions(stackedGraph = TRUE,drawGrid = FALSE) %>%
    dyRangeSelector(height = 20) %>%
    dyHighlight(highlightSeriesOpts = list(strokeWidth = 3))

  })

我正在运行 R Studio v. 0.99.484、R v. 3.2.3、Windows Machine、Dygraphs Package v. 0.7

【问题讨论】：

请使其更具重现性。我必须制作自己的数据集zoo 和zoo2，我没有问题。您的 dygraph 是否显示一些错误消息？
@K.Rohde，我添加了动物园输入。希望这足以解决问题。我找到了更多关于这种行为的来源......github.com/rstudio/dygraphs/issues/62。一些人的解决方案是为每个地块调用separleygraphOutput，但我已经知道了。有什么想法吗？
我仍然无法重现您提到的奇怪行为。抱歉，请问您是否在最新版本上运行 R 和您的软件包？
R Studio v. 0.99.484, R v. 3.2.3, Windows Machine, Dygraphs Package v. 0.7, shinydashboard 0.5.1
当在 R Studio Viewer 中调用时，输出正确返回，没有问题，但是，此时 R dygraphs 并没有给我任何反馈，只是在 shinydashboard 应用程序中的一个空字段。跨度>

标签： r shiny dygraphs shinydashboard

【解决方案1】：

因此，在 GitHub 上的 RDygraphs 的支持下（问题已关闭@@https://github.com/rstudio/dygraphs/issues/62），这些问题并不少见。该解决方案包括将所有依赖包更新到最新版本，在我的例子中是 htmlwidgets 到 v. 0.6。现在 dygraphs 显示正确率达到 98%（2% 出现问题，应该可能会在几天内通过新版本的 htmlwidgets 解决）。

【讨论】：