From a5df176656c14624495dcbc550b3097f634ed0f3 Mon Sep 17 00:00:00 2001 From: Sebastian Carl Date: Thu, 5 Oct 2023 09:09:38 +0200 Subject: [PATCH] render images in row group labels --- DESCRIPTION | 2 +- NEWS.md | 1 + R/gt_nfl.R | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6c99e77..1a8cc61 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: nflplotR Title: NFL Logo Plots in 'ggplot2' -Version: 1.2.0.9001 +Version: 1.2.0.9002 Authors@R: person("Sebastian", "Carl", , "mrcaseb@gmail.com", role = c("aut", "cre")) Description: A set of functions to visualize National Football League diff --git a/NEWS.md b/NEWS.md index 12a0cd9..6150faf 100644 --- a/NEWS.md +++ b/NEWS.md @@ -2,6 +2,7 @@ * The functions `geom_nfl_headshots()` and `gt_nfl_headshots()` better handle `NA` gsis IDs. (#48) * The functions `gt_nfl_logos()` and `gt_nfl_wordmarks()` now keep non team name matches to allow the user to call `gt::sub_missing()`. (#48) +* The functions `gt_nfl_logos()` and `gt_nfl_wordmarks()` now correctly render images in gt row group labels. (#49) # nflplotR 1.2.0 diff --git a/R/gt_nfl.R b/R/gt_nfl.R index ad119dc..4782201 100644 --- a/R/gt_nfl.R +++ b/R/gt_nfl.R @@ -96,6 +96,7 @@ gt_nflplotR_image <- function(gt_object, uri <- get_image_uri(team_abbr = team_abbr, type = type) # Generate the Base64-encoded image and place it within tags out <- paste0("") + out <- lapply(out, gt::html) # If the image uri returns NA we didn't find a match. We will return the # actual value then to allow the user to call gt::sub_missing() out[is.na(uri)] <- x[is.na(uri)]