picketInput更改占位符R Shiny Widgets

Question

pickerInput包中的shinyWidgets的占位符標題為Nothing selected 。

如何用例如“ Pick a choice替換它？ 我希望使用css或pickerInput選項的解決方案，如果可能的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)