我尝试在R中使用slidify包构建一个演示文稿。我已经编写了演示文稿，并在以下.Rmd文件中调用了slidify函数。我在GGally中使用了钻石数据集。
当我发布以下内容时，n1$show("iframesrc", cdn = TRUE)未显示rChart。
对象$ show（）出错：找不到对象'opts_current'
gvisMotionChart也显示错误。
我想知道并期待rCharts和gvisMotionChart，我错过了一些东西。感谢您的期待。
---
title : Presentation
subtitle :
author :
job :
framework : io2012 # {io2012, html5slides, shower, dzslides, ...}
highlighter : highlight.js # {highlight.js, prettify, highlight}
hitheme : tomorrow #
widgets : [mathjax, quiz, bootstrap,shiny,interactive] # {mathjax, quiz, bootstrap}
mode : selfcontained # {standalone, draft}
knit : slidify::knit2slides
--- &interactive
```{r}
library(rCharts)
library(ggplot2)
library(GGally)
n1 <- nPlot(carat ~ cut , group = "color", data = diamonds[1:40,], type = "multiBarChart")
n1$show("iframesrc", cdn = TRUE)
```
--- &interactive
## Plot
```{r opts.label = 'interactive'}
library(googleVis)
library(GGally)
g <-gvisMotionChart(diamonds, "carat", "price", options = list(width = 800, height = 600))
g$show("iframesrc", cdn = TRUE)
```