使用shinyBS为每个pickerInput选项添加不同的工具提示

Question

我正在尝试向选择器输入下拉菜单中的每个子选项添加工具提示。我尝试过使用闪亮的 tooltipBS 来调整来自反应式单选按钮的selectizeTooltip 功能，但我担心我不知道如何正确调整它。

\n

不幸的是只是做

\n

        pickerInput("pobrezavar1", label = NULL,\n                    choices = c("Riesgo de pobreza (60%)"= "Pobreza_60_",\n                                "Extrema pobreza (40%)"= "Pobreza_40_"\n                                #"Pobreza seg\xc3\xban definici\xc3\xb3n EJ-GV"= "Pobreza_GV_"\n                                ),\n                    selected = NULL,\n                    options = list(`noneSelectedText`="Escoge"),\n                    width = "100%"),\n        \n        selectizeTooltip(id="pobrezavar1", choice = "Pobreza_60_", title = "Tooltip for c", placement = "right", trigger = "hover"),\n     \n

\n

不起作用。

\n

我正在开发的应用程序（您会看到我在最后一行按钮中的 radioGroupButtons 上有正常工作的工具提示）：\n http://iseak.shinyapps.io/Mapa2/

\n

预先感谢您提供的任何提示。

\n

Answer 1

这是一种方法，无需shinyBS.

library(shiny)
library(shinyWidgets)

js <- "
var mytips = ['HELLO I AM TOOLTIP 1', 'HI I AM TOOLTIP 2'];
$('#mypicker').on('shown.bs.select', function() {
  var $lis = $($(this).data('selectpicker').selectpicker.current.elements);
  $lis.each(function(i) {
    $(this).attr('title', mytips[i]);
  });
});"

ui <- fluidPage(
  
  pickerInput(
    inputId = "mypicker",
    label = "A label",
    choices = c("a", "b")
  ),
  
  tags$script(HTML(js)),
  
  verbatimTextOutput("value")
  
)

server <- function(input, output) {
  output$value <- renderPrint(input$mypicker)
}

shinyApp(ui, server)