Nothing
turn_wdgt_on <- function(widget_list) {
lapply(widget_list, FUN = function(h) {
enabled(h) <- T
})
}
turn_wdgt_off <- function(widget_list) {
lapply(widget_list, FUN = function(h) {
enabled(h) <- F
})
}
get_wdgt_vals <- function(widget_list) {
as.character(sapply(widget_list, FUN = svalue))
}
set_wdgt_sel <- function(widget_list, col_vals) {
for (i in 1:length(col_vals))
{
svalue(widget_list[[i]]) <- col_vals[i]
}
}
set_wdgt_vals <- function(widget_list, col_vals) {
sapply(widget_list, FUN = function(h) {
h[] <- col_vals
})
}
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.