Shiny中pickerInput点击全不选时如何显示指定提示文本

完全不需要强制用observeEvent，直接在DT::renderDT内部加if判断就能实现，代码更集中，不用额外写冗余的监听逻辑。

报错根源 #

点全不选的时候input$type会返回NULL，原代码里filter(letter == input$type)传NULL进去直接会触发计算错误，表格自然渲染失败。另外原代码里多选匹配写==本身也有问题，选多个值的时候会出现长度不匹配的警告，匹配结果不准，多选项匹配要换成%in%。

改完可直接复用的代码 #

UI端的pickerInput不需要改动：

pickerInput("type", "Select Option", choices = c("a","b","c", "d"), selected = c("a","b","c","d"), options = list('actions-box' = TRUE), multiple = T)

server端渲染逻辑二选一即可：

写法1：基础if判断，可自定义提示样式 #

output$one<- DT::renderDT({
  # 全不选状态直接返回提示内容
  if(length(input$type) == 0){
    tip_df <- data.frame(tip = "Make sure to select an option!（请确保选择至少一个选项！）")
    return(DT::datatable(
      tip_df, 
      caption = "table", 
      options = list(pageLength = 50, dom = "t"), 
      rownames = F, 
      colnames = ""
    ))
  }
  # 有选中值时走正常表格渲染逻辑
  tab1<- rbind(red, blue,green, yellow)%>% filter(num> .450, letter %in% input$type)
  DT::datatable(tab1, caption = "table", options = list(pageLength = 50))
})

写法2：用Shiny自带校验函数，提示样式和框架统一 #

output$one<- DT::renderDT({
  # 校验不通过直接显示提示，不会往下执行渲染逻辑
  validate(
    need(length(input$type) > 0, "Make sure to select an option!（请确保选择至少一个选项！）")
  )
  tab1<- rbind(red, blue,green, yellow)%>% filter(num> .450, letter %in% input$type)
  DT::datatable(tab1, caption = "table", options = list(pageLength = 50))
})

什么时候需要用observeEvent？ #

只有当全不选的时候你需要触发表格之外的联动逻辑，比如弹出全局通知、重置其他输入组件、触发计算缓存清理这类操作，才需要用observeEvent监听input$type的变化，单纯处理表格内的提示完全没必要加。

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