`virtualSelectInput` dropdown does not correctly overlap `sliderInput`

[simon-smart88]

See this example and the screenshot of what is produced.

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    virtualSelectInput("picker", "Picker", choices = c("a", "b")),
    sliderInput("slide", "Slider", min = 0, max = 10, value = 5))

server <- function(input, output, session){
}

shinyApp(ui, server)

[pvictor]

Hello,

Try to set z-index property in virtualSelectInput with for example zIndex = 10, e.g. :

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  virtualSelectInput("picker", "Picker", choices = c("a", "b"), zIndex = 10),
  sliderInput("slide", "Slider", min = 0, max = 10, value = 5))

server <- function(input, output, session){
}

shinyApp(ui, server)

Victor