Programmiererforum

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()

Ich habe Beispielcode zum Hinzufügen von Sparklinien zu DT DataTable, die funktionieren, mit Ausnahme des Tooltip in Sparlin (aus dem Funkline-Paket).[code]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()
[/code]
Hier zeigt der Farkline -Tooltip für Gruppe A: [b] '0: 1', '1: 3' und '2: 5' [/b], wenn es '[b] 2021 Q1: 1', '2021 Q2: 3', '2021 Q3: 5' [/b]. Tooltip. < /p>
Es scheint jedoch stattdessen in einen Index umzuwandeln. Ich frage mich, dass es möglicherweise die Verwendung von spk_add_deps oder anderen verwendet wird.>