R can´；t标绘减价动态图

我希望在一个降价文档中用动态图绘制一个时间序列。我可以从列表中选择时间序列，并使用plot（）函数对其进行绘图，但它与dygraph函数的工作方式不同

library(dplyr)
library(tidyr)
library(dygraphs)
library(tseries)

df <- data.frame(date = c(as.yearmon(2018,1),as.yearmon(2018,1),as.yearmon(2018,2),as.yearmon(2018,2),
                          as.yearmon(2018,1),as.yearmon(2018,1),as.yearmon(2018,2),as.yearmon(2018,2)),                sales = c(1,2,3,4),
                 cat_I = c("drink","drink","food","food","drink","drink","food","food"),
                 cat_II = c("cola","fanta","tomatoes","bananas","cola","fanta","tomatoes","bananas"))

cat <- data.frame(I = c("drink","drink","food","food"),
                  II = c("cola","fanta","tomatoes","bananas"))

ts <- list()

for(s in unique(cat$II)){
  aux <- df %>%  filter(cat_II==s) %>%  
    as.data.frame()
  ts[[s]] <- ts(aux$sales,start=c(2018,1),frequency = 12)
}


selectInput("I", label = "category_I:",
           choices = names(ts))



renderPlot({
  plot(ts[[input$I]])
  
})
  

---

您应该使用

dygraph:：renderDygraph

而不是

renderPlot

dygraphs::renderDygraph({
  dygraph(ts[[input$I]])
})

dygraphs::renderDygraph({
  dygraph(ts[[input$I]])
})