Is there a way in which the menu can automatically collapse back once a country is selected?

[Shelmith-Kariuki]

Hi @pvictor ,

Thank you so much for this package.

Is there a way in which the menu can automatically collapse back once a country is selected?

`
library(shiny)
library(shinytreeview)

data("cities")

ui <- fluidPage(
tags$h3("treeviewInput cities example"),
treeviewInput(
inputId = "tree",
label = "Choose a city:",
choices = make_tree(
cities, c("continent", "country", "city")
),
multiple = FALSE,
prevent_unselect = TRUE,
width = "100%"
),
verbatimTextOutput(outputId = "result")
)

server <- function(input, output, session) {
output$result <- renderPrint({
input$tree
})
}

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

[pvictor]

Hi,

You can collapse levels from your server with collapseTreeview().

There's two solutions :

• Collapse all treeview with:

collapseTreeview("tree") # "tree" is inputId of the widget

• Collapse parent level, for this you need to retrieve nodes' ids:

nodes <- input$tree_nodes
this_node <- nodes[nodes$text == input$tree, "parentId"]
collapseTreeview("tree", nodeId = this_node)

Here's an example:

library(shiny)
library(shinytreeview)

data("cities")

ui <- fluidPage(
  tags$h3("treeviewInput cities example"),
  treeviewInput(
    inputId = "tree",
    label = "Choose a city:",
    choices = make_tree(
      cities, c("continent", "country", "city")
    ),
    multiple = FALSE,
    prevent_unselect = TRUE,
    width = "100%"
  ),
  verbatimTextOutput(outputId = "result"),
  verbatimTextOutput(outputId = "nodes")
)

server <- function(input, output, session) {
  
  observeEvent(input$tree, {
    if (input$tree %in% cities$city) {
      nodes <- input$tree_nodes
      this_node <- nodes[nodes$text == input$tree, "parentId"]
      collapseTreeview("tree", nodeId = this_node)
      # or collapse all levels with:
      # collapseTreeview("tree")
    }
  })
  
  output$result <- renderPrint({
    input$tree
  })
  
  output$nodes <- renderPrint({
    input$tree_nodes
  })
  
}

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

Victor

[Shelmith-Kariuki]

Hi @pvictor that worked ... thank you.