我正在尝试向 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)
关于r - 使用 shinyBS 为每个 pickerInput 选项添加不同的工具提示,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/64360600/