css - picketInput 更改占位符 R Shiny Widgets

Question

shinyWidgets 包中的 pickerInput 有一个占位符标题 Nothing selected。

如何用 Pick a choice 替换它？我更喜欢使用 css 或 pickerInput 选项的解决方案，如果可能的话避免使用 shinyjs。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(

  tags$head(
    tags$style(HTML("

    "))
  ),

  pickerInput(
    inputId = "mtcInputIndicateur", 
    label = "Select values", 
    choices = paste("choice", 1:10),
    options = list(`live-search` = TRUE),
    multiple = TRUE
  )
)



server <- function(input, output){
}

shinyApp(ui, server)

如有任何帮助，我们将不胜感激。

Answer 1

刚刚找到答案，在options中使用参数title。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(

  pickerInput(
    inputId = "mtcInputIndicateur", 
    label = "Select values", 
    choices = paste("choice", 1:10),
    options = list(`live-search` = TRUE, title = "Pick a choice"),
    multiple = TRUE
  )
)



server <- function(input, output){
}

shinyApp(ui, server)