0
我在一个Shiny App中使用了2个R图。我观察到一个返回图的问题,也就是说,它有时不会加载/显示其中一个dygraph,有时它会。奇怪的行为。任何人都有类似经历吗我该如何稳定地显示一个闪亮的多个dygraphs?
上下文:
UI
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))
})
我运行v Studio版本0.99.484,R诉3.2.3,Windows机器上,Dygraphs包诉。 0.7
请让它更具可重复性。我不得不组成自己的数据集'zoo'和'zoo2',我没有问题。你的dygraph是否显示一些错误信息? –
@ K.Rohde,我添加了动物园的输入。希望这将足以解决问题。我发现这种行为的更多来源... https://github.com/rstudio/dygraphs/issues/62。对于某些人来说,解决方案是为每个情节提供单独的图表输出调用,但是我已经得到了这些调用。有任何想法吗? –
我仍然无法重现您提到的奇怪行为。不好意思问,但是你是否在最新版本上运行R和你的软件包? –