##get sampling unit after find bars
getSU <- function(bars){
if(length(bars)==1){
return(bars)
}
else{
getSU(bars[[2]])
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.