# Combine data sets and serialize
red <- read.csv("data-raw/winequality-red.csv", sep = ";")
white <- read.csv("data-raw/winequality-white.csv", sep = ";")
wine <- rbind(
cbind(red, "type" = "red"),
cbind(white, "type" = "white")
)
save(wine, file = "data/wine.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.