Nothing
checkboxExponentsGrond <-
fluidRow(column(1, checkboxInput("legendG", "Legend", FALSE)),
column(1, NULL),
column(1, checkboxInput("exp1G", "1", FALSE)),
column(1, checkboxInput("exp2G", "2", FALSE)),
column(1, checkboxInput("exp3G", "3", FALSE)),
column(1, checkboxInput("exp4G", "4", FALSE)),
column(1, checkboxInput("exp5G", "5", FALSE)),
column(1, checkboxInput("exp6G", "6", FALSE)),
column(1, checkboxInput("exp7G", "7", FALSE)),
column(1, checkboxInput("exp8G", "8", FALSE)),
column(1, checkboxInput("exp9G", "9", FALSE)),
column(1, checkboxInput("exp10G", "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.