FGMakeLabel <-
function(base.title, units)
{
if (is.null(units) || is.na(units))
{ mytitle <- base.title }
else
{ mytitle <- paste(base.title, " (", units, ")", sep = "") }
return(mytitle)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.