闪亮：未选中复选框时，xts绘图（xtsExtra）将消失

我正在rmarkdown上编写一个闪亮的应用程序。该应用程序假定在同一图表上绘制两个时间序列，但第二个绘图以复选框为条件

问题是，当复选框未选中时，整个图表将消失，而不仅仅是与复选框相关的系列

我目前正在使用xtsExtra pkg中的plot.xts，但我愿意尝试其他pkg。唯一的限制是必须自定义颜色（col）和线宽（lwd）

---
标题：“无标题”
作者：“古斯塔沃”
日期：“2014年11月29日，星期六”
输出：html\u文档
运行时间：闪亮
---
```{r，echo=FALSE}
需要（xts）
要求（xtsExtra）
x=rnorm（100）
y=rnorm（100）
idx=序号（截止日期（“2000-01-01”），长度=100，by=“月”）
Xxts=xts（cbind（x，y），order.by=idx）
checkboxInput（“teste”、“teste”，值=FALSE）
渲染图({
plot.xts（Xxts[，1]，panel=1）
if（输入$teste==TRUE）{
addSeries（Xxts[，2]，on=1，type=“l”）
}
})
```

将

渲染图更改为

renderPlot({ 
  if(input$teste == TRUE){
    plot.xts(Xxts[,1],panel = 1)
    addSeries(Xxts[,2], on = 1, type="l")
  }else{
    plot.xts(Xxts[,1],panel = 1)
  }
})