Nothing
# Create numeric input
getNumericInput<- function(inputID, inputConf, errorID, placement="top", trigger="hover")
{
if(inputConf$infoTxt != ""){
mylabel <- c(inputConf$label,getIcon(inputConf$infoTxt, placement, trigger))
}else{
mylabel <- inputConf$label
}
myOutput <- span(
numericInput(inputID,
mylabel,
inputConf$value,
min = inputConf$min,
max = inputConf$max,
step = inputConf$step),
uiOutput(errorID)
)
return(myOutput)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.