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

问题描述

我正在尝试向pickerinput下拉菜单中的每个子选项添加工具提示。我尝试过调整功能selectizeTooltip 来自reactive radioButtons with tooltipBS in shiny 但恐怕我不了解如何正确地进行调整。

不幸的是做

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

不起作用。

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

在此先感谢您提供的任何提示。

解决方法

这是没有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)