如何取消仅适用于selectInput滚动条的absolutePanel中的Dragable？

在

selectInput

中，在

absolutePanel

中，我有许多可能的选择

我希望

absolutePanel

是

draggable

但是，当

draggable=T

时，

选择输入的滚动条不工作。当我点击它时，它会呈现拖动行为，而不是上下滚动

使用鼠标垫笔记本电脑上的“两个手指”，或者鼠标中的滚动条都可以工作，但我需要使滚动条有用

有什么想法吗

可重复的示例来自一个尚未回答的问题

用户界面

服务器

shinyServer ( 
  function(input, output) {
    output$state_province_select <- renderUI({
      selectchoices <- c("Prince Edward Island","Ontario",
                         "Prince Edward Island1","Ontario1",
                         "Prince Edward Island2","Ontario2",
                         "Prince Edward Island3","Ontario3",
                         "Prince Edward Island4","Ontario4",
                         "Prince Edward Island5","Ontario5",
                         "Prince Edward Island6","Ontario6",
                         "Prince Edward Island7","Ontario7",
                         "Prince Edward Island8","Ontario8")
          selectlabel <- "Province"
          choiceselected <- "Prince Edward Island"
          selectInput("state_province_select",paste("Select ",selectlabel,":"),
                      choices = selectchoices, selected = choiceselected)
        })
      }
    )

shinyServer（
功能（输入、输出）{
输出$state\u province\u select这很烦人

不是真正的答案，而是另一种选择：使用
shinyjqui
。如下所示：

library(shiny)
library(shinyjqui)

ui <- navbarPage("Leaflet App", id="nav",

                 tabPanel("Interactive map",

                          jqui_draggable(
                            div(
                              h2("Select Province"),
                              br(),
                              uiOutput("state_province_select")
                            ),
                            options = list(cancel = ".shiny-input-container")
                          )
                 )               
)

库（闪亮）
图书馆（shinyjqui）
ui您是否尝试过
fixed=FALSE
？是的，同样的问题确实不是答案。但是，它只需将
absolutePanel
包装在
jqui\u Dragable
中即可解决问题。简单、简洁、快速。谢谢
library(shiny)
library(shinyjqui)

ui <- navbarPage("Leaflet App", id="nav",

                 tabPanel("Interactive map",

                          jqui_draggable(
                            div(
                              h2("Select Province"),
                              br(),
                              uiOutput("state_province_select")
                            ),
                            options = list(cancel = ".shiny-input-container")
                          )
                 )               
)