Как добавить метки для подъема инструментов в R Sparkline? ⇐ Html

[Anonymous]

У меня есть пример кода, чтобы добавить Sparklines в DT Datatable, который работает, за исключением настройки подсказки инструментов в Sparkline (из пакета Sparkline). < /p>

Код: Выделить всё

library(sparkline)
library(formattable)
library(DT)
library(tidyverse)

## Create dataframe

data = data.frame(group = rep(c("A", "B"),3), yr_q = rep(c("2021 Q1", "2021 Q2", "2021 Q3"),2), count = c(1, 2, 3, 4, 5, 6))

## Add in column showing Trend for sparkline

data1 = data %>% group_by(group) %>% summarise("Trend" = spk_chr(count, x = yr_q, tooltipFormat = '{{x}}:{{y}}'))

## Create table (just illustrating issue)

data1 %>% formattable() %>% as.datatable() %>% spk_add_deps()

Здесь, подсказка Sparkline будет отображаться для группы A: '0: 1', '1: 3' и '2: 5' , когда он должен показать ' 2021 Q1: 1', '2021 Q2: 3', '2021 Q3: 5' . ToolTip. Интересно, это может быть использование spk_add_deps или другого.>

Подробнее здесь: https://stackoverflow.com/questions/794 ... -sparkline