R 在鼠标悬停弹出窗口中显示按钮标题

我曾经研究过当鼠标经过

时如何显示
actionButton
标题。我理解javascript，但不知道如何解决这个问题

在
鼠标上方
上，我希望显示
按钮
的
标题
，而不是html代码本身。我将感谢任何帮助或想法来解决这个问题。以下是POC代码：

library(shiny)
library(DT)
library(dplyr)

shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("table")
  ),
  server = function(input, output) {

  # create a summary table
    summary_iris <- group_by(iris, Species) %>%
      summarise(Count = n())

    summary_iris$Species <- levels(summary_iris$Species)

    shinyInput <- function(FUN, len, id, label, ...) {
      inputs <- character(len)

      for (i in seq_len(len)) {
        label <- summary_iris$Species[i]
        inputs[i] <- as.character(FUN(paste0(id, i),label=label, ...))
      }
      inputs
    }

    output$table <- DT::renderDataTable({
      DT <- summary_iris %>%
        mutate(Species = shinyInput(actionButton,
                                    nrow(summary_iris), 'button_', label = Species, class="bttn-unite",
                                    onclick = 'Shiny.onInputChange(\"select_button\",  this.id)'))
      DT::datatable(DT, rownames = FALSE, escape = FALSE,
                    options = list(rowCallback = JS(
                      "function(row, data) {",
                      "var full_text = data[0]",
                      "$('td:eq(0)', row).attr('title', full_text);",
                      "}")))
    })
  }
)

库（闪亮）
图书馆（DT）
图书馆（dplyr）
shinyApp(
ui=fluidPage(
DT:：dataTableOutput（“表格”）
),
服务器=功能（输入、输出）{
#创建摘要表
总结(百分比)
总结（计数=n（）
summary_iris$Species您可以使用正则表达式提取文本：

rowCallback = JS(
  "function(row, data) {",
  "  var r = />(.*)</;",
  "  var full_text = r.exec(data[0])[1]",
  "  $('td:eq(0)', row).attr('title', full_text);",
  "}")

rowCallback = JS(
  "function(row, data) {",
  "  var full_text = $(data[0]).text();",
  "  $('td:eq(0)', row).attr('title', full_text);",
  "}")

@Stephane Laurent
，非常感谢。我喜欢第二个选项，它更容易理解。这正是我想要的。关于javascript资源的任何建议都可以帮助我提高我的javascript技能。再次感谢你。要使用
bttn unite
类，你可以使用
shinyWidgets
package.谢谢你这么做了，非常感谢