Question

在selectInput中的absolutePanel中，我有许多可能的选择。

我希望absolutePanel是draggable。

但是，draggable = T的滚动条不起作用时。当我单击它时，它具有拖动行为，而不是上下滚动。

使用鼠标垫笔记本电脑上的“两个手指”，或者使用鼠标中的滚动条，但是我需要使该滚动条有用。

有什么想法吗？

一个可重复的例子来自Google Groups question，该答案未被回答。

ui

selectInput

服务器

shinyUI(navbarPage("Leaflet App", id="nav",
                   tabPanel("Interactive map",
                            absolutePanel(id = "controls", fixed = TRUE,
                                              draggable = TRUE, top = 100, left = "auto", right = 20, bottom = "auto",
                                              width = 400, height = "auto",
                                              h2("Select Province"),
                                              br(),
                                              uiOutput("state_province_select")
                                )
                            )               
)
)

Answer 1

这很烦人。

实际上不是答案，而是一种替代方法：使用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")
                          )
                 )               
)

如何取消absolutePanel中仅用于selectInput滚动条的可拖动对象？

1 个答案: