selectsizeInput working slow for 27000 entries



In my shinny app ui the drop down is working very slow . I am using 27000 entries in drop down i am using selectizeInput and then updateSelectizeInput to update value

my code - in ui.R

selectizeInput("Gene_name", "Select Genes", NULL,
                   multiple = F,  options = list(placeholder = "Select 
                   Gene", maxOptions = 27000))

in server.R

updateSelectizeInput(session, 'Gene_name', 
                    choices = Gene_Choices, selected=Gene_Choices[1],
                    server = TRUE)

datatype of Gene_Choices is "character" with arround 26000 entries. Dropdown is taking very longer time to show entries. Thanks for any help in advance.