# \donttest{
library(gt)
library(mlbplotR)
df <- data.frame(BAL = 1,
TEX = 1,
LAD = 1,
"Mike_Trout" = 1,
"Shohei_Ohtani" = 1
)
gt_column_example <- df %>%
gt::gt() %>%
gt::cols_label(BAL = gt_mlb_column_labels("BAL", "mlb_logo"),
TEX = gt_mlb_column_labels("TEX", "scoreboard_logo"),
LAD = gt_mlb_column_labels("LAD", "dot_logo"),
"Mike_Trout" = gt_mlb_column_labels(545361, "dot_headshot"),
"Shohei_Ohtani" = gt_mlb_column_labels(660271, "headshot"))
# }
Run the code above in your browser using DataLab