Shiny: 'resizable' disabled with draggable absolutePanel()

[lkuchenb]

Plots are no longer resizable when a draggable absolutePanel is present. Here is a minimal example:

library(shiny)
library(ggvis)

server <- function(input, output) {

  mtcars %>% 
    ggvis(~wt, ~mpg) %>% 
    layer_points() %>%
    set_options(width = "500", height = "500", resizable=T) %>% 
    bind_shiny("plot")

}

ui <- fluidPage(
  ggvisOutput("plot"),
  absolutePanel(
    draggable = T, style = "opacity: 0.92",
    wellPanel("Hello World")
  )
)

shinyApp(ui, server)

[zhongxiali]

Same thing when you want to select some text inside draggable absolutepanel or have a colorpicker in there. need a way to make certain area of the absolutepanel not draggable