R Shiny - 单击 shinyTree 扩展图标关闭父下拉模式

Question

我正在使用库 shinyTree 和 shinyWidgets。问题是，如果我将分层复选框放在下拉模式上，双击树展开图标（见下图中的红色圆圈）将关闭父下拉模式。

有什么解决办法吗？

完整源代码：

server.R

library(shiny)
library(shinyTree)
library(shinyWidgets)

shinyServer(function(input, output, session) {
  output$shinyTreeTest <- renderUI({ 
    dropdown(
      shinyTree("tree", checkbox = TRUE),
      style = "unite", label = "Location", width = "300px", circle=FALSE
    )
  })

  output$tree <- renderTree({ 
    list(  'I lorem impsum'= list( 
      'I.1 lorem impsum'   =  structure(list('I.1.1 lorem impsum'='1', 'I.1.2 lorem impsum'='2'),stselected=TRUE),  
      'I.2 lorem impsum'   =  structure(list('I.2.1 lorem impsum'='3'), stselected=TRUE)))

  })
})

ui.R

library(shiny)
library(shinyTree)

shinyUI(
  shiny::fluidPage(
    h4('Shiny hierarchical checkbox')
    ,uiOutput("shinyTreeTest")
  )
)

Answer 1

我还在 GitHub shinyWidget 项目上发布了这个问题，并从那里得到了答案。通过从 devtool 而不是 CRAN 重新安装 shinyWidget 已经解决了这个问题。

R Shiny - 单击 shinyTree 扩展图标关闭父下拉模式

R Shiny - clicking shinyTree expanding icon close parent dropdown modal

r

shiny

shinytree