如何将工具提示添加到R shiny中的datatable行名？

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("mytable")
)

server <- function(input, output) {
  output$mytable <- renderDataTable({
    datatable(
      iris,
      options = list(
        initComplete = JS(
          "function(settings, json) {",
          "$(this.api().table().header()).append('<th></th>');",
          "var tooltips = ['工具提示1', '工具提示2', '工具提示3', '工具提示4', '工具提示5'];",
          "$(this.api().table().body()).children('tr').each(function(rowIdx) {",
          "$(this).attr('title', tooltips[rowIdx]);",
          "});",
          "}"),
        pageLength = 5
      ),
      class = 'cell-border stripe'
    ) %>%
      formatStyle(
        'Species',
        title = paste0('<b>工具提示: </b>', 'This is tooltip text.')
      )
  })
}

shinyApp(ui = ui, server = server)