Idea: interpolate glyphs with text

[teunbrand]

See https://fosstodon.org/@teunbrand/111982829941145048

[teunbrand]

Proof of concept using {marquee} as text backend.

library(grid)
library(marquee)
#> 
#> Attaching package: 'marquee'
#> The following object is masked from 'package:graphics':
#> 
#>     box

new_point <- function(col = "black", pch = 19, size = 12) {
  pointsGrob(
    x = 0.5, y = 0.5, default.units = "npc", pch = pch,
    gp = gpar(col = col, fontsize = size),
    vp = viewport(width = unit(size, "pt"), height = unit(size, "pt"),
                  just = c(0.5, 0.5))
  )
}

red_pt <- new_point("tomato")
blue_pt <- new_point("dodgerblue", pch = 17)
green_pt <- new_point("limegreen", pch = 15)

grob <- marquee_grob(
  "I'm text with
  ![](red_pt) and
  ![](blue_pt) and
  ![](green_pt) as interspersed points",
  classic_style(), x = 0.1, y = 0.9
)

grid.newpage()
grid.draw(grob)

^{Created on 2024-04-27 with reprex v2.1.0}

[teunbrand]

Implemented in r-lib/marquee#28.
Leaving this issue open as reminder to remove gguidance::guide_subtitle() in favour of the marquee guide.