#' Input names for the widget elements
#'
#' @param env widget
#'
#' @return The names of the inputs which are used inside the widget
#' @export
#'
#' @examples
#' w <- widgetFontSize('widget')
#' getInputs(w)
getInputs <- function(env) {
inp <- sapply(env[['ui']], function(l) { l$args$inputId} )
paste(env[['widgetId']], inp, sep=".")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.