Tired of always typing out the same old arguments to functions? Use default() to set your favourite arguments as the defaults.
install.packages("default")
library(default)
hist(iris$Sepal.Width)

default(hist.default) <- list(col = "deeppink", border = "white", ylab = "", main = "")
hist(iris$Sepal.Width)

hist(iris$Sepal.Width, col = "limegreen")

hist.default <- reset_default(hist.default)
hist(iris$Sepal.Width)

Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.