z__create_menu_from_list <- function(obj, parent_name, my_list) {
if (is.list(my_list)) {
menu_dirs <- names(my_list)
for (my_sub_str in menu_dirs) {
my_sub_str_name <- my_sub_str
item_d_name <- paste0(parent_name, "|", my_sub_str_name)
obj$items[[item_d_name]] <- RGtk2::gtkMenuItem(label = my_sub_str_name)
RGtk2::gtkMenuShellAppend(obj[[parent_name]], obj$items[[item_d_name]])
obj[[item_d_name]] <- RGtk2::gtkMenu()
RGtk2::gtkMenuItemSetSubmenu(obj$items[[item_d_name]], obj[[item_d_name]])
obj <- z__create_menu_from_list(
obj, item_d_name,
my_list[[my_sub_str]]
)
}
} else if (is.vector(my_list)) {
for (my_sub_str in my_list) {
my_sub_str_name <- my_sub_str
item_d_name <- paste0(parent_name, "|", my_sub_str_name)
obj$items[[item_d_name]] <- RGtk2::gtkMenuItem(label = my_sub_str_name)
RGtk2::gtkMenuShellAppend(obj[[parent_name]], obj$items[[item_d_name]])
obj$end_nodes <- c(obj$end_nodes, item_d_name)
}
}
return(obj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.