highchartOutput collides with updateSelectizeInput


#1

Hello, this is my welcome post here.
After around two years of working with Shiny I've decided to ask you for help with an issue that I haven't found solution to for a long time.
When I use highcharter library together with selectInput that I want to update from server side a strange behavior takes place.
Below I put the simplest example showing the problem.

library(shinydashboard)
library(shiny)
library(highcharter)

ui <- dashboardPage(
  dashboardHeader(title = "Jump effect"),
  dashboardSidebar(
    uiOutput("selector1")
  ),
  dashboardBody(      
    highchartOutput("graph1")
  )
)

server <- function(input, output, session) { 
  output$selector1 <- renderUI({
    selectizeInput(
      'select1',
      'Selection',
      choices = NULL 
    )
  })
  
  updateSelectizeInput(session = session,inputId = "select1",choices = 1:10000 , server = TRUE)
  
  output$graph1 <- renderHighchart({})
}

shinyApp(ui, server)

The selector "jumps" up and down when typing any value in it.
The problem disappears when I set server = FALSE in updateSelectizeInput or when I comment the line with highchartOutput("graph1").
Unfortunatelly the number of choices in selector is huge in my case and populating it on page startup with the full list (server=FALSE) is not an option (browser freezes for a number of seconds).
I'm not sure if this is a bug or if some of my installed packages collides with each other.
The fact is that this issue is blocking me from using the best in my opinion interactive graph library in shiny.
Any help will be very appreciated.