UpdateSelectizeInput ведет себя странно

Question

Это, вероятно, очень похоже на следующий вопрос:

Блестящее обновление на стороне сервераSelectizeInput не создает список выбора

Я создал MWE, чтобы вы моглилучше следи за проблемой. Это MWE в основном взято из блестящего: https://shiny.rstudio.com/articles/selectize.html,, но оно не дает ожидаемого результата.

library(shiny)

# ui
ui <- fluidPage(
  fluidRow(
      selectizeInput('foo', label = NULL, choices = NULL, options = list(
        placeholder = 'Select something...')
    )
  )
)


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


  # update the render function for selectize
  updateSelectizeInput(session,
                       'foo',
                       choices = cbind(name = rownames(mtcars), mtcars),
                       server=T,
                       options = list(render = I(
                         '{
    option: function(item, escape) {
      return "<div><strong>" + escape(item.name) + "</strong> (" +
             "MPG: " + item.mpg +
             ", Transmission: " + item.am == 1 ? "automatic" : "manual" + ")"
    }
          }'))
  )

}

# Run the application 
shinyApp(ui = ui, server = server)

Я действительно понятия не имею, что здесь не так, и благодарен за любую подсказку.

Answer 1

Нашел ответ здесь:

https://groups.google.com/forum/#!topic/shiny-discuss/SCLzc8nKotM

Я должен указать search, label и valueField, чтобы сделать выборку работающей.