3

素晴らしいrChartsとknitrを使ってウェブページを作りました。マイページは、人力車の時系列チャートとスライダー、データテーブルを組み合わせたものです。データテーブルを追加すると、人力車チャートからすべてのスライダーが消えます。同じリソースへの呼び出しが重複しないように config.yml を変更しようとしましたが、問題は解決しませんでした。どんなアイデアでも大きな助けになります。以下は、knitr を使用して html ページに編成できる再現可能な r-markdown ファイルです。

```{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)
```
4

1 に答える 1

5

jQueryが 2 回含まれているために問題が発生します。knitr簡単な修正は、重複する行を削除するドキュメント フックを追加することjQueryです。cache = Fを呼び出すたびに実行されるように、必ずこのチャンクを設定してくださいknitr。将来のバージョンでは、ページに既にロードされている場合にオフにできるように、jQuery引数を追加します。 printjQuery

```{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)
})
```
于 2013-11-06T13:57:27.713 に答える