在R Shiny中的图标上添加悬停消息

Question

我想添加一个悬停消息，当我将鼠标移动到“i”信息图标上方时会出现。

信息图标

我使用以下代码添加了该图标：

numericInput("fixed_ratio", 
             label = tags$div(HTML('Fixed ratio <i class="fas fa-info-circle" 
                                       style = "color:#0072B2;"></i>')), 
             value = 1)

我尝试在“HTML”中添加“title”作为悬浮信息，但是没有成功。

有什么方法可以添加消息吗？谢谢！

- Chinyako

Answer 1

这适用于我：

library(shiny)

ui <- fluidPage(
  numericInput(
    "fixed_ratio", 
    label = tags$span(
      "Fixed ratio", 
      tags$i(
        class = "glyphicon glyphicon-info-sign", 
        style = "color:#0072B2;",
        title = "message"
      )
    ), 
    value = 1
  )  
)

shinyApp(ui, function(input, output){})

- Stéphane Laurent

---

嗨Stephane！谢谢你的解决方案，但对我来说还是不起作用。当我将鼠标移到图标上时没有显示任何消息。你是否引入了其他包以使其工作？ - undefined

@XinyingFang 我发布的代码“原样”运行正常。也许你可以尝试使用另一个浏览器。 - undefined

谢谢！最后在图标上添加了一个bsTooltip函数，终于解决了问题，使得悬停消息能够启用。也许有些函数之间存在矛盾？如果没有bsTooltip函数，我无法启用悬停消息。 - undefined

@Chinyako，你能分享一下你对bsTooltip附加组件的解决方案吗？我无法让这个解决方案按照提议的方式运行。 - undefined