htmlwidgets and runtime: shiny

dygraphs.Rmd

---
title: "Dygraphs in R Markdown"
output: html_document
runtime: shiny
---

```{r}
library(dygraphs)

hw <- HoltWinters(ldeaths)
p <- predict(hw, n.ahead = 36, prediction.interval = TRUE, level = 0.95)
ts <- cbind(ldeaths, p)

dygraph(ts, "Deaths from Lung Disease (UK)") %>%
  dySeries("ldeaths", label = "Deaths") %>%
  dySeries(c("p.lwr", "p.fit", "p.upr"), label = "Predicted")
```

networkD3.Rmd

---
title: "R Markdown networkD3"
output: html_document
runtime: shiny
---

```{r}
library(networkD3)
src <- c("A", "A", "A", "A", "B", "B", "C", "C", "D")
target <- c("B", "C", "D", "J", "E", "F", "G", "H", "I")
networkData <- data.frame(src, target)
simpleNetwork(networkData)
```