R/explorer_classes.R

In DavidBarke/shinyExplorer: Explorer and Contextmenu for Shiny apps

#' Group Explorer Class
#'
#' @param .label_list A \code{\link[base]{list}} created with
#' \code{\link{label_group_explorer_class}} containing labels for all buttons
#' used inside the group_explorer_class.
#'
#' @export
group_explorer_class <- function(id = "__group__", .label_list = label_group_explorer_class()) {
  ExplorerClass$new(
    id = id,
    ui = list(
      contextmenu_item_ui = contextmenu_item_ui_factory(.label_list),
      specific_contextmenu_items_ui = group_node_specific_contextmenu_items_ui_factory(.label_list)
    ),
    server = group_node_factory(.label_list)
  )
}