emojis loses colors

[manassehoduor]

I tried out the {emo(ji)} package with award/medal emojis glued to a table created by {gt} but the saved table resulted in a color loss in all emojis. Kindly, help.

# Sample data
sample_data <- data.frame(TEAM = c("KENYA", "NEW ZEALAND", "FIJI"),
                          POINTS_LEG1 = c(22, 19, 17),
                          POINTS_LEG2 = c(17, 22, 19),
                          POINTS_LEG3 = c(17, 19, 22))

# View sample data
head(sample_data)
#>          TEAM POINTS_LEG1 POINTS_LEG2 POINTS_LEG3
#> 1       KENYA          22          17          17
#> 2 NEW ZEALAND          19          22          19
#> 3        FIJI          17          19          22
datapasta::df_paste(head(sample_data))
#> data.frame(
#>   stringsAsFactors = FALSE,
#>               TEAM = c("KENYA", "NEW ZEALAND", "FIJI"),
#>        POINTS_LEG1 = c(22, 19, 17),
#>        POINTS_LEG2 = c(17, 22, 19),
#>        POINTS_LEG3 = c(17, 19, 22)
#> )

# Upload the packages
pacman::p_load(tidyverse, gt, emo, emoji)

# Runnable code
out <- sample_data %>% 
  gt() %>% 
  text_transform(
    locations = cells_body(columns = POINTS_LEG1:POINTS_LEG3),
    fn = function(x) {
      paste0(x, "       ",
             dplyr::case_when(
               x == 22 ~ emo::ji_glue(medal("Gold")),
               x == 19 ~ emo::ji_glue(medal("Silver")),
               x == 17 ~ emo::ji_glue(medal("Bronze"))))
      }
    )


gtsave(out, "sample_Emojis.png")

^{Created on 2022-06-16 by the reprex package (v2.0.1)}

[rich-iannone]

I couldn't get your example to run on my machine (due to some error with the emo:ji_glue() function). But I suspect this has been fixed with the recent merge of #985 (which enhances image output with gtsave()). Try out the latest in the dev version of gt (and let me know if the problem persists).