Nothing
checkboxExponentsWolf <-
fluidRow(column(1, checkboxInput("legendW", "Legend", FALSE)),
column(1, NULL),
column(1, checkboxInput("exp1W", "1", FALSE)),
column(1, checkboxInput("exp2W", "2", FALSE)),
column(1, checkboxInput("exp3W", "3", FALSE)),
column(1, checkboxInput("exp4W", "4", FALSE)),
column(1, checkboxInput("exp5W", "5", FALSE)),
column(1, checkboxInput("exp6W", "6", FALSE)),
column(1, checkboxInput("exp7W", "7", FALSE)),
column(1, checkboxInput("exp8W", "8", FALSE)),
column(1, checkboxInput("exp9W", "9", FALSE)),
column(1, checkboxInput("exp10W", "10", FALSE))
)
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.