使用闪亮的选择，避免对搜索结果进行排序

Question

在下面的可重现闪亮应用程序中，可搜索的选择字段按字符串的长度重新排序值。

如果我在搜索字段中键入1，则“Gears”会出现在“Cylinders”上方，因为字符串更短。 但是，我希望它们按原始顺序排列，即 11 高于 12 高于 13。

selectize repo 中的一个线程建议添加类似sortField: [{field: 'name', direction: 'asc'}] 的内容，但我无法在闪亮的上下文中添加它。所以将options = list(sortField = list(field = 'name', direction = 'asc'))添加到selectizeInput()是没有效果的。

library(shiny)
choices <- c(
  "11 Cylinders" = "cyl",
  "12 Transmission" = "am",
  "13 Gears" = "gear"
)

shinyApp(
  ui = fluidPage(
    selectizeInput(
      "variable", 
      "Variable:", 
      choices
    )
  ),
  server = function(input, output) {
  }
)

Answer 1

library(shiny)

# must have named vector for selectize.js to pick up on the injection
choices <- c(
  "11 Cylinders" = "cyl",
  "12 Transmission" = "am",
  "13 Gears" = "gear"
)

# define JS to inject for options
##asceding order
sort_asc <- I("[{field: 'name', direction: 'asc'},{field: '$score'}]")

##decending order
sort_desc <- I("[{field: 'name', direction: 'desc'},{field: '$score'}]")

JS_opts <- list(create=TRUE,
                labelField =  'name',
                searchField = 'name',
                sortField = sort_asc
                )

shinyApp(
  ui = fluidPage(
    selectizeInput(
      inputId = "variable", 
      label = "Variable:", 
      choices = choices,
      options = JS_opts
    )
  ),
  server = function(input, output) {
  }
)