Как добавить метки для подъема инструментов в 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'
a a a a a a a a a a a a ar varial Tooltip < /p>
Однако, по -видимому, он, по -видимому, конвертируется в индекс. Интересно, это может быть использование spk_add_deps или других
Не включено, но если вы печатаете (Data1 $ Trend), скрипты HTML/JSON показывают x метки, как они должны быть, поэтому я запутался в том, где это падает
.>

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