checkboxTreeInput: Checkbox tree
In stla/shinyCheckboxTree: A Checkbox Tree Widget for 'Shiny'

Description Usage Arguments See Also Examples

View source: R/checkboxTree.R

This creates a checkbox tree in the Shiny UI.

checkboxTreeInput(
  inputId,
  nodes,
  sort = FALSE,
  single = FALSE,
  checkModel = "leaf",
  checked = list(),
  onlyLeafCheckboxes = FALSE,
  showExpandAll = FALSE
)

`inputId`	the input slot that will be used to access the value
`nodes`	a list of nodes; each node is a named list with the following fields: `label` node label - required `value` the value associated to the node - required `children` the children of the node, i.e. a list of nodes `className` a class name to add to the node `disabled` logical, whether to disable the node `showCheckbox` logical, whether the node should show a checkbox `title` a custom `title` attribute for the node
`sort`	logical, whether to sort the nodes by their label
`single`	logical; if `TRUE`, only one node can be selected
`checkModel`	`"leaf"` or `"all"`, specifies which checked nodes should be included in the value
`checked`	a list of initially checked nodes, identified by their value
`onlyLeafCheckboxes`	logical, whether checkboxes should be shown only for the leaves
`showExpandAll`	logical; if `TRUE`, buttons for expanding and collapsing all parent nodes will appear in the widget

updateCheckboxTreeInput

if(interactive()) {

# make the nodes list from a vector of file paths
makeNodes <- function(leaves){
  dfs <- lapply(strsplit(leaves, "/"), function(s){
    item <-
      Reduce(function(a,b) paste0(a,"/",b), s[-1], s[1], accumulate = TRUE)
    data.frame(
      item = item,
      parent = c("root", item[-length(item)]),
      stringsAsFactors = FALSE
    )
  })
  dat <- dfs[[1]]
  for(i in 2:length(dfs)){
    dat <- merge(dat, dfs[[i]], all = TRUE)
  }
  f <- function(parent){
    i <- match(parent, dat$item)
    item <- dat$item[i]
    children <- dat$item[dat$parent==item]
    label <- tail(strsplit(item, "/")[[1]], 1)
    if(length(children)){
      list(
        label = label,
        value = item,
        children = lapply(children, f)
      )
    }else{
      list(label = label, value = item)
    }
  }
  lapply(dat$item[dat$parent == "root"], f)
}

folder <-
  list.files(system.file("www", "shared", package = "shiny"), recursive = TRUE)
nodes <- makeNodes(folder)


library(shiny)
library(shinyCheckboxTree)

ui <- fluidPage(
  tags$head(
    tags$style(HTML(".react-checkbox-tree { font-size: 13px; }"))
  ),
  br(),
  fluidRow(
    column(
      6,
      checkboxTreeInput("tree", nodes = nodes)
    ),
    column(
      6,
      verbatimTextOutput("checked")
    )
  )
)

server <- function(input, output, session) {
  output[["checked"]] <- renderPrint({
    cat(input[["tree"]], sep = "\n")
  })
}

shinyApp(ui, server)

}