getColorFrancis <- function(shade=c("happy", "angry")){
shade <- match.arg(shade)
if (shade=="happy"){
return("firebrick")
} else {
return("firebrick4")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.