纠察队输入更改占位符 R 闪亮小部件

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)