Shiny开发：捕获selectizeInput选中值及解决重复打印问题

无约束的observe语句会响应所有内部引用的响应式变量的变化，该语句内既引用了input$foo，又通过updateSelectizeInput修改input$foo的值，每次修改都会再次触发observe执行，形成无限死循环，因此出现持续重复打印的异常。

library(shiny)
library(DT)

init.choices <- c("Choose From List or Type New Value"="")

ui <- fluidPage(
  selectizeInput("foo", NULL, 
                 choices=init.choices,
                 multiple=FALSE,
                 options=list(create=TRUE))
)

server <- function(input, output, session) {
  # 初始化选项和默认选中值，仅会话启动时执行1次
  observe({
    updateSelectizeInput(session, "foo", choices=c(init.choices,  c(1,2,3)), selected = 3, server=TRUE)
  }, once = TRUE)
  
  # 仅监听选中值变化，触发打印
  observeEvent(input$foo, {
    print(input$foo)
  })
}

shinyApp(ui, server)

• 把选项更新、默认值设置逻辑移到带once=TRUE参数的observe中，仅执行1次，切断死循环触发源
• 单独使用observeEvent监听input$foo的变化，只有选中值发生实际改动时才会执行打印逻辑，匹配选中值输出的需求
• 该方案兼容selectizeInput开启的自定义输入新值特性，用户手动输入的新值也可以被正常捕获打印

内容的提问来源于stack exchange，提问作者manu p