Support COLRv1 emoji font

[yutannihilation]

Close #64

Caveats

This support is not complete.

• The color information is not included. While it's probably not so difficult, it's not very obvious what format is the best.
• The clip information and layer information are just discarded. While these might be useful, it's probably not easy to plot them.

library(ggplot2)

devtools::load_all("~/repo/string2path/")

# Note: it seems Noto Color Emoji has many variants. Only that of COLRv1 format
# is supported, so this might not work on installed font of Noto Color Emoji.
ttf <- "~/Downloads/NotoColorEmoji-Regular.ttf"

d <-
  string2fill("🌶", ttf, tolerance = 1e-4) |>
  tibble::rowid_to_column()

ggplot(d) +
  geom_polygon(aes(x, y, group = path_id, fill = factor(path_id)), colour = "green", alpha = 0.7) +
  coord_equal() +
  theme_minimal() +
  theme(legend.position = "none") +
  scale_fill_viridis_d(option = "F")