如何在Shiny日期选择组件未选中日期时显示“未选择日期”提示

Shiny原生dateInput没有公开的占位符设置参数，可通过修改输入框HTML属性实现需求，以下是完整可运行的修改后代码：

library(shiny)
library(shinythemes)
library(htmltools)

ui <- fluidPage(
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 uiOutput("date"),
                                 br()
                               ),
                               mainPanel()
                             ))
  ))

server <- function(input, output,session) {
  # 测试用模拟数据，可替换为你实际的业务数据逻辑
  data <- reactive({
    list(df = seq(as.Date('2021-01-03'), as.Date('2021-01-12'), by = "day"))
  })
  
  output$date <- renderUI({
    req(data())
    all_dates <- seq(as.Date('2021-01-01'), as.Date('2021-01-15'), by = "day")
    disabled <- as.Date(setdiff(all_dates, as.Date(data()$df)), origin = "1970-01-01")
    
    # 生成基础日期输入组件
    date_tag <- dateInput(input = "database", 
              label = h4("Choose"),
              min = min(data()$df),
              max = max(data()$df),
              value = NA,
              datesdisabled = disabled)
    
    # 给输入框添加placeholder属性实现空值提示
    tagQuery(date_tag)$
      find("input")$
      addAttrs(placeholder = "No date selected")$
      allTags()
  })
}

shinyApp(ui = ui, server = server) 

可选替代方案（无需加载htmltools包） #

如果你不想额外引入htmltools依赖，可以在UI中插入一段简单的JS代码实现相同效果，仅需在原fluidPage内新增tags$script片段即可：

ui <- fluidPage(
  tags$script(HTML("
    $(document).on('shiny:value', function(event) {
      if(event.name === 'date') {
        setTimeout(() => {
          const dateInput = document.getElementById('database');
          if (!dateInput.value) dateInput.placeholder = 'No date selected';
          dateInput.addEventListener('change', function() {
            this.placeholder = this.value ? '' : 'No date selected';
          });
        }, 10)
      }
    });
  ")),
  # 其余原有UI代码保持不变
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
  ...)
)

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