rChardown中的rCharts和DT是否兼容？

Jon Nagra 发表于 Dev

乔恩·纳格拉

我正在尝试使用rmarkdown创建一个文档，其中包括rCharts包中的图表和使用htmlwidgets中包含的DT库的数据表。由于某些原因，我无法将两者同时显示。

---
title: "Untitled"
output: html_document
---

```{r, echo=FALSE}
library(DT)
library(rCharts)

df<-data.frame(Name=c("a","Z","h","k","j"),Value=(sample(10^7,5)))

datatable(df, filter = 'top', options = list(
  pageLength = 10,iDisplaylength=10, autoWidth = TRUE
))
```

```{r, message=FALSE, echo=FALSE, results='asis'}
df<-data.frame(label=c("One","Two","Three"),valuea=c(1,2,3),
               othera=c(10,11,12),stringsAsFactors = FALSE)
p1 <- nPlot(valuea~ label, data = df, type = 'pieChart')

#Different options I tried

p1$print('inline', include_assets = TRUE, cdn = FALSE)
#p1$show('inline', include_assets = TRUE, cdn = FALSE)

#p1$print('inline', include_assets = TRUE)
#p1$show('inline', include_assets = TRUE)

#These provide an error
#p1$print('inline', include_assets = TRUE, cdn = TRUE)
#p1$show('inline', include_assets = TRUE, cdn = TRUE)

```

带注释的行是我尝试过的事情。

注意一：如果p1$print('inline', include_assets = TRUE, cdn = FALSE)有注释，数据表将正确显示。

注意二：我知道结合了iframe的p1 $ save（）函数，但是，我想内联使用图表。

好的

jQuery库位于页面顶部，当您include_assets位于中时print，再次包含jQuery库，这会导致问题。

要解决此问题，您可以尝试将其设置include_assets为false并“手动”添加除jQuery外的所需库。

 p1 <- nPlot(valuea~ label, data = df, type = 'pieChart')
    cat("<link rel='stylesheet' href=.../R/3.1/library/rCharts/libraries/nvd3/css/nv.d3.css>
    <link rel='stylesheet' href=.../R/3.1/library/rCharts/libraries/nvd3/css/rNVD3.css>
    <script type='text/javascript' src=.../R/3.1/library/rCharts/libraries/nvd3/js/d3.v3.min.js></script>
    <script type='text/javascript' src=.../R/3.1/library/rCharts/libraries/nvd3/js/nv.d3.min-new.js></script>
    <script type='text/javascript' src=.../R/3.1/library/rCharts/libraries/nvd3/js/fisheye.js></script> ")
    p1$print('inline', include_assets = F, cdn = FALSE)

您可以通过p1$print('inline', include_assets = T, cdn = FALSE)在R中运行找到所需的库和链接，它们将是输出的第一行。的src路径是绝对所以我取代它的一些通过...在上面的代码。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。