闪亮：当未选中复选框时，xts plot（xtsExtra）消失

Question

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

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

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

＆＃13;

＆＃13;

---
title: "Untitled"
author: "gustavo"
date: "Saturday, November 29, 2014"
output: html_document
runtime: shiny
---


```{r, echo = FALSE}
require(xts)
require(xtsExtra)

x = rnorm(100)
y = rnorm(100)
idx = seq(as.Date("2000-01-01"), length = 100, by = "months")

Xxts = xts(cbind(x,y), order.by = idx)

checkboxInput("teste", "Teste", value = FALSE)

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

```

＆＃13;

＆＃13;

＆＃13;

Answer 1

将renderPlot更改为

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)
  }
})