#'@export
smNavDropdown <- function(label, ..., el.list) {
if(missing(el.list)) {
el.list <- list(...)
}
parent <- tags$a(href = "#", class = "dropdown-toggle",
"data-toggle" = "dropdown",
tagList(label, tags$span(class = "caret")))
dd <- smDropdown(parent, el.list)
dd$name <- "li"
return(dd)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.