age <- c(1.41,1.3,1.21,1.13,1.06,1,0.95,0.91)
if(!is.null(.GlobalEnv$iconsE)) iconsE <- .GlobalEnv$iconsE
choices <- as.list(iconsE)
names(choices) <- iconsE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.