在 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”中，我尝试添加“标题”作为悬停消息，但没有成功。

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

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){})