## ----eval=FALSE----------------------------------------------------------
# mydata <- airquality[1:2,]
# y <- reshape2::melt(data = mydata, id = c("Month", "Day"))
# toJSON(y)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.