如何在单击或键入时在 selectizeInput 中做出相同的选择顺序？

Question

我做了一个选择向量。当我点击 selectizeInput 时，我得到的选择顺序与我的向量中的顺序相同，但是当我开始输入 selectizeInput 时，我的选择顺序与我的向量中的顺序不同。

这是闪亮应用程序的例子。

library(shiny)

choices <- c("First choice", "Second choice", "Choice third", "Fourth choice", "Choice fifth")

ui <- fluidPage(

    selectizeInput("id", 
                   "My input", 
                   choices = choices,
                   multiple = TRUE,
                   options = list(placeholder = "All choices")
                   )
    )

server <- function(input, output) {

    
}

shinyApp(ui = ui, server = server)

当我点击输入选项时，顺序是这样的。

我开始输入“ch”后，选择的顺序和第一张图不一样

如何让选择总是以相同的顺序进行？