R Shiny selectizeInput清空文本区域触发空值更新如何处理

你提到的两种实现思路都可用，优先选择配置+内置校验的方案，改动量最小，无需额外维护全局状态。

优先推荐方案：selectize配置+shiny内置校验 #

首先在前端定义selectizeInput时添加配置，限制空值为非法输入：

selectizeInput(
  inputId = "foo",
  label = "选择项",
  choices = NULL, # 服务端更新choices此处填NULL即可
  options = list(
    create = FALSE, # 禁止生成不在可选列表内的自定义值
    allowEmptyOption = FALSE, # 不允许空值作为合法选中项
    persist = TRUE # 输入框失焦时自动保留最后一次合法选中值
  )
)

配合shiny内置的req()校验函数，仅需少量修改服务端代码即可拦截空值触发的更新：

server <- function(input, output, session) {
  updateSelectizeInput(session, 'foo', choices = my.choices, server = TRUE)
  output[['my.plot']] <- renderPlotly({
    # 仅当input$foo为非空且属于可选列表时，才执行后续渲染逻辑
    req(input$foo, input$foo %in% my.choices)
    plot_data(input)
  })
}

# 补充修正原代码里ggplot的括号语法错误
plot_data <- function(input) {
  plot <- my.data %>%
    filter(z == input[['foo']]) %>%
    ggplot(aes(x = x, y = y)) +
    geom_line() +
    geom_point()

  ggplotly(plot)
}

备选方案：维护最后一次有效选中状态 #

如果你的应用存在多组件联动的复杂场景，需要统一管理输入状态，可以用响应式值存储最后一次有效选中项：

server <- function(input, output, session) {
  updateSelectizeInput(session, 'foo', choices = my.choices, server = TRUE)
  # 存储最后一次有效选中值的响应式变量
  last_valid_selection <- reactiveVal()
  
  # 监听selectize输入变化，仅有效值更新存储变量
  observeEvent(input$foo, {
    if (input$foo != "" && input$foo %in% my.choices) {
      last_valid_selection(input$foo)
    }
  })
  
  output[['my.plot']] <- renderPlotly({
    req(last_valid_selection())
    # 替换输入参数为存储的有效值
    modified_input <- input
    modified_input[["foo"]] <- last_valid_selection()
    plot_data(modified_input)
  })
}

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