如何将 onBlur 事件添加到 selectizeInput

Question

我想在用户离开选择输入时触发一个事件。但是对于 selectizeInput 它不起作用，对于 textInput 它只触发一次：

library(shiny)

ui <- fluidPage(
  selectizeInput("si", label="letters", choices = letters),
  tags$script(HTML(
    '
      $("#si").on("blur", function() {
        console.log("boawigjawegaosdgi");
      })
      '
  )),
  textInput("ti", label = "ti"),
  tags$script(HTML(
    '
      $("#ti").on("blur", function() {
        console.log("boawisdgi");
      })
      '
  )),
)

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

shinyApp(ui, server)

我可以改变什么才能让它起作用？

Answer 1

对于

textInput

可以正常工作 对于

selectizeInput

，您必须使用

onBlur

选项：

  selectizeInput(
    "si", label="letters", choices = letters,
    options = list(
      onBlur = I('function() {console.log("boawigjawegaosdgi")}')
    )
  )