rCharts 和人力车 : slider disappears from rickshaw chart when a datatable is added to my web page

Question

我使用令人惊叹的 rCharts 和 knitr 构建了一个网页。我的页面将人力车时间序列图表与 slider 和数据表结合在一起。当我添加数据表时，所有 slider 都从我的人力车图表中消失了。我尝试修改 config.yml，这样我就不会重复调用相同的资源，但这并没有解决问题。任何想法都会有很大帮助。下面是一个可重现的 r-markdown 文件，可以用 knitr 编织成一个 html 页面。

```{r echo = F, message = T, cache = F}
require(rCharts)
opts_knit$set(self.contained=T)
knitr::opts_chunk$set(results = 'asis', tidy = F, message = T, echo=F, fig.width=700)
```

### Chart
```{r chart}
# add dummy date column to iris to make a time series chart
x <- cbind(iris, date=seq.Date(as.Date("2010-01-01"), length.out=nrow(iris), by=1))
x$date <- as.double(as.POSIXct(x$date,origin="1970-01-01"))
r2 <- Rickshaw$new()
r2$layer(
  Sepal.Length ~ date,
  data = x,
  type = "line",
  min = "auto"
)
r2$set(
  slider = TRUE,
  title = "IRIS",
  width = 700
)
r2$print('chart', include_assets=T, cdn=T)
```

### Table
```{r table}
r2 <- dTable(iris)
r2$print('table', include_assets=T, cdn=T)
```

Answer 1

出现此问题是因为 jQuery 被包含了两次。一个快速的修复方法是向 knitr 添加一个文档 Hook ，这将删除重复的 jQuery 行。确保为此 block 设置 cache = F，以便在每次调用 knitr 时运行它。在未来的版本中，我将向 print 添加一个 jQuery 参数，以便您可以将其关闭，如果您已经在您的计算机上加载了 jQuery页。

```{r cache = F}
library(knitr)
knit_hooks$set(document = function(doc){
  pat = "<script type='text/javascript' src=http://code.jquery.com/jquery-1.10.2.min.js></script>"
  gsub(pat, "", doc)
})
```