Question

当我在下面运行该应用程序时，无法使用右侧的滚动条向下滚动下拉菜单，因为这会导致下拉菜单立即消失。我只能使用鼠标的滚轮向下滚动。如果我不在可拖动面板中，则不存在该问题。

我需要处于可拖动面板中，并且我不想让使用我的应用程序的用户对此向下滚动菜单感到沮丧。

有人知道如何解决此问题吗？

非常感谢！

我正在使用Shiny软件包的1.0.5版本。在查看器面板（RStudio版本1.1.442，R版本3.4.4）和应用程序在Google Chrome外部运行（版本67.0.3396.99）时，都会发生此问题。

这是应用程序的代码。

library(shiny)

ui <- absolutePanel( id = "controls", class = "panel panel-default", fixed = TRUE,
           draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto",
           width = 500, height = "auto",

           uiOutput( 'color' )          
)

server <-   function( input, output, session ) {
output$color <- renderUI( selectInput(  inputId = "color", label = h4( "Variable" ), 
                                        selectize = TRUE, choices = LETTERS, 
                                        # selectize = TRUE, choices = varLst[[ input$varType ]][[ input$measType ]],
                                        selected = 'A') )
}

shinyApp(ui, server)

Answer 1

一种解决方案是设置draggable=FALSE并将absolutePanel包裹在jqui_draggable包提供的shinyjqui中，并带有选项cancel = ".selectize-control"。

library(shiny)
library(shinyjqui)
ui <- jqui_draggable(
  absolutePanel( id = "controls", class = "panel panel-default", fixed = FALSE,
                 draggable = FALSE, top = 60, left = "auto", right = 20, 
                 bottom = "auto", width = 500, height = "auto",
                 uiOutput( 'color' )
  ),
  options = list(cancel = ".selectize-control"))

在可拖动的绝对窗格中向下滚动selectInput时出现问题

1 个答案: