Nothing
createDigitsInput <- function(moduleId, value = 4, min = 0, step = 1) {
numericInput(NS(moduleId, "digits"), "Number of Digits", value = value, min = min, step = step)
}
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.