library(dplyr)
library(formattable)
Exemplu de date
deseuluna <- data.frame(
Nr_crt = 1:6,
Sigla = c("MK", "ECO", "ECI", "VI", "VO", "RM"),
DESEU = c(98, 73, 57, 34, 26, 17),
Percentage = c(25.99, 19.36, 15.12, 9.02, 6.90, 4.51),
SUMA = cumsum(c(98, 73, 57, 34, 26, 17))
)
Formatter pentru rânduri alternative
row_style <- function(x, i) {
style(background = ifelse(i %% 2 == 0, "#ffffff", "#d0d0d0"))
}
Aplicare formattable fără a adăuga coloane noi
formattable(
deseuluna,
list(
Nr_crt = formatter("span", style = row_style),
Sigla = formatter("span", style = row_style),
DESEU = formatter("span", style = row_style),
Percentage = formatter("span", style = row_style),
SUMA = formatter("span", style = row_style)
),
table.attr = 'style="font-size: 14px; font-family: Calibri; width: 100%;"'
)