make_tree: Create choice structure for 'treeviewInput'

In zehndert/shinytreeviewCustom: Tree View for 'shiny' Applications

Description

Create choice structure for treeviewInput

Usage

make_tree(data, levels, selected = NULL, ...)

Arguments

data	A data.frame.
levels	Variables identifying hierarchical levels.
selected	Default selected value(s).
...	Named arguments with list of attributes to apply to a certain level. Names must be the same as the levels. Full list of attributes is available at the following URL : https://github.com/patternfly/patternfly-bootstrap-treeview#node-properties.

Value

a list that can be used in treeviewInput.

Examples

library(shinytreeview)

data("cities")
head(cities)

# Create choices that can be used in treeviewInput
make_tree(cities, c("continent", "country", "city"))

# Custom attributes for continent level
make_tree(cities, c("continent", "country", "city"), continent = list(selectable = FALSE))




library(shiny)
ui <- fluidPage(
  tags$h3("treeviewInput cities example"),
  fluidRow(
    column(
      width = 6,
      treeviewInput(
        inputId = "tree1",
        label = "Choose an area:",
        choices = make_tree(cities, c("continent", "country", "city")),
        multiple = FALSE,
        prevent_unselect = TRUE
      ),
      verbatimTextOutput(outputId = "result1")
    ),
    column(
      width = 6,
      treeviewInput(
        inputId = "tree2",
        label = "Choose an area (continent not selectable):",
        choices = make_tree(
          cities, c("continent", "country", "city"),
          continent = list(selectable = FALSE)
        ),
        multiple = FALSE,
        prevent_unselect = TRUE
      ),
      verbatimTextOutput(outputId = "result2")
    )
  )
)

server <- function(input, output, session) {
  output$result1 <- renderPrint({
    input$tree1
  })
  output$result2 <- renderPrint({
    input$tree2
  })
}

if (interactive())
  shinyApp(ui, server)

zehndert/shinytreeviewCustom documentation built on Dec. 23, 2021, 9:15 p.m.