#' @export
htmlBar = function(..., objs=list(...), td.style = "padding-right: 5px;") {
objs = lapply(objs, tags$td, style=td.style)
tags$table(tags$tr(objs))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.