textInput2 <- function (inputId, label, value = "", class = "")
{
tagList(
tags$label(label, `for` = inputId),
tags$input(id = inputId, type = "text", value = value, class=class)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.