get.data.note <-
function (data.d)
{
data.note <- attr(data.d, "data.note")
`if`(is.null(data.note),
return(data.d$note),
return(data.note))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.