HI, I cannot find the latex code this code should generate.
library(pixiedust)
#> Additional documentation is being constructed at http://nutterb.github.io/pixiedust/index.html
SEATS<- data.frame(matrix(ncol = 3, nrow = 10))
rownames(SEATS) <- c("European People's Party group (EPP)",
"Progressive Alliance of Socialists and Democrats (S&D)",
"European Conservatives and Reformists (ECR)",
"Group of the Alliance of Liberals and Democrats for Europe (ALDE)",
"European United Left/Nordic Green Left (GUE/NGL)",
"The Greens/European Free Alliance (Greens/EFA)",
"Europe of Freedom and Direct Democracy (EFDD)",
"Europe of Nations and Freedom (ENF)",
"Union for Europe of the Nations (UEN)",
"Independence/Democracy (IND/DEM)")
colnames(SEATS) <-c("ep6","ep7","ep8")
SEATS[1,] <- c(288,273,216)
SEATS[2,] <- c(218,195,185)
SEATS[3,] <- c(0,57,77)
SEATS[4,] <- c(100,83,69)
SEATS[5,] <- c(40,35,52)
SEATS[6,] <- c(43,57,52)
SEATS[7,] <- c(0,31,42)
SEATS[8,] <- c(0,0,36)
SEATS[9,] <- c(44,0,0)
SEATS[10,] <- c(22,0,0)
dust(SEATS) %>%
sprinkle_colnames(ep6 = "6^{th} EP",
ep7 = "7^{th} EP",
ep8 = "8^{th} EP") %>%
sprinkle_print_method("latex")