Shiny应用中如何取消selectInput默认选中，仅允许用户手动选择？

要实现两个selectInput均不自动选中任何选项，仅允许用户手动选择，只需在调用updateSelectInput时显式指定selected = ""（或NULL）即可。因为Shiny默认会在更新选项时自动选中第一个选项，显式设置未选中状态就能覆盖这个默认行为。

修改后的完整代码如下：

library(shiny)
library(shinythemes)
library(lubridate)

df1<- structure(
  list(
    Marketname = c("Market1","Market1", "Market2","Market2", "Market3", "Market3"),
    Days = c("Sunday","Sunday","Sunday","Sunday", "Sunday","Tuesday"),
    Openinghours = c("Morning","Evening", "Morning","Evening","Evening","Evening")
  ), row.names = c(NA, 6L), class = "data.frame")

ui <- fluidPage(  
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 dateInput("date", "Which day shift do you choose?"),
                                 selectInput("hours", label = h5("Which work shift do you choose??"), choices = NULL, 
                                             selected = ""),
                                 selectInput("market", label = h5("Choose a market??"), choices = NULL, 
                                             selected = "")
                               ),
                               mainPanel(
                               )
                             ))
  ))

server <- function(input, output, session) {
  week_day <- reactive({
    wday(input$date, label = TRUE, abbr = FALSE)
  })
  
  observe({
    updateSelectInput(session, "hours",
                      choices = unique(df1[df1$Days == week_day(), "Openinghours"]),
                      selected = ""  # 显式设置未选中状态
    )
  })

  observe({
    updateSelectInput(session, "market",
                      choices = unique(df1[df1$Days == week_day() & df1$Openinghours %in% input$hours, "Marketname"]),
                      selected = ""  # 显式设置未选中状态
    )
  })
}

shinyApp(ui = ui, server = server)

关键修改说明 #

• 在两个observe块的updateSelectInput中添加selected = ""，强制每次更新选项后保持未选中状态，用户必须手动选择才能触发后续的市场选项更新。
• 初始状态下selectInput的selected = ""已经设置，但因为页面加载时dateInput有默认值（当前日期），会触发hours的更新，所以必须在更新时再次指定未选中，否则会被Shiny的默认行为覆盖。

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