r - tab_spanner ラベルを画像に変更できますか?

Question

tab_spanner のラベルを Web イメージに変更する方法があるかどうかを確認しようとしています。

  df %>%
  gt() %>%
  tab_spanner(label = "https://resources.premierleague.com/premierleague/photos/players/250x250/p97299.png", columns = vars(instances_1, rank_1)) %>%
  tab_spanner(label = "https://resources.premierleague.com/premierleague/photos/players/250x250/p95658.png", columns = vars(instances_2, rank_2))

以前、text_transform と web_image 関数を使用して列に画像を追加しましたが、その機能が gt に存在する場合、列ではないときにラベルを変更する方法がわかりません。

  text_transform(
    locations = cells_body(vars(url)),
    fn = function(x) {
      web_image(url = x,
                height = px(22.5))
    }
  )

以下に Iris のサンプル データセットを示します。事実上、Sepal ラベルをこの URL ( https://upload.wikimedia.org/wikipedia/commons/thumb/7/78/Petal-sepal.jpg/220px-Petal-sepal.jpg ) からのこの画像に置き換えます。この URL からのこの画像の花びらラベル ( https://upload.wikimedia.org/wikipedia/commons/thumb/e/e2/Tulip_Tulipa_clusiana_%27Lady_Jane%27_Rock_Ledge_Flower_2000px.jpg/198px-Tulip_Tulipa_clusiana_%27Lady_Jane%27_Rock_Ledge_Flower_2000px.jpg )

iris %>%
  filter((Sepal.Length==5.1 & Species=='versicolor')) %>%
  select(Sepal.Length,Sepal.Width,Petal.Length,Petal.Width) %>%
  gt() %>%
  tab_spanner(label = "Sepal", columns = vars(Sepal.Length, Sepal.Width)) %>%
  tab_spanner(label = "Petal", columns = vars(Petal.Length, Petal.Width))

助けてくれてありがとう！