The search feature does not work as expected when proton theme is selected

[vedhav]

The search works unexpectedly when the proton theme is selected. Unwanted nodes are also shown, it would be great if only the search-filtered nodes are displayed just like how it happens when theme is default.

Please see the screenshot below and also find the code to reproduce it.

library(shiny)
library(shinyTree)

df <- data.frame(Titanic)
tree_data <- dfToTree(df, c("Sex", "Class", "Survived"))

ui <- fluidPage(
  shinyTree(
    "tree", search = TRUE, theme = "proton"
  )
)

# project_list_mini$`2 Broke Girls` <- project_list_all$`2 Broke Girls`

server <- function(input, output, session) {
  output$tree <- renderTree({
    tree_data
  })
}

shinyApp(ui, server)