Подсказка к ячейке Reactable R

Question

Документация reactable предоставляет один пример добавления всплывающей подсказки к заголовкам.

Вот пример добавления всплывающей подсказки для ячейки.

data <- mtcars[1:5, c("mpg", "cyl")]
data$tooltipcell<-"<span title='your content'>this is a car</span>"
with_tooltip <- function(value, tooltip) {
  span(style = "text-decoration: underline; text-decoration-style: dotted;", title = tooltip, value)
}

reactable(
  data,
  columns = list(
    mpg = colDef(name="mpg"),
    cyl = colDef(header = with_tooltip("cyl", "Number of cylinders")),
    tooltipcell=colDef(html = TRUE)
  )
)