ggsave throws error in example code about gggenomes HOT 8 CLOSED

library(gggenomes)

# to inspect the example data shipped with gggenomes
data(package="gggenomes")

gggenomes(
  genes = emale_genes, seqs = emale_seqs, links = emale_ava,
  feats = list(emale_tirs, ngaros=emale_ngaros, gc=emale_gc)) |> 
  add_sublinks(emale_prot_ava) |>
  sync() + # synchronize genome directions based on links
  geom_feat(position="identity", size=6) +
  geom_seq() +
  geom_link(data=links(2)) +
  geom_bin_label() +
  geom_gene(aes(fill=name)) +
  geom_gene_tag(aes(label=name), nudge_y=0.1, check_overlap = TRUE) +
  geom_feat(data=feats(ngaros), alpha=.3, size=10, position="identity") +
  geom_feat_note(aes(label="Ngaro-transposon"), data=feats(ngaros),
                 nudge_y=.1, vjust=0) +
  geom_wiggle(aes(z=score, linetype="GC-content"), feats(gc),
              fill="lavenderblush4", position=position_nudge(y=-.2), height = .2) +
  scale_fill_brewer("Genes", palette="Dark2", na.value="cornsilk3")

ggsave("emales.png", width=8, height=4)

> data(package="gggenomes")
> gggenomes(
+   genes = emale_genes, seqs = emale_seqs, links = emale_ava,
+   feats = list(emale_tirs, ngaros=emale_ngaros, gc=emale_gc)) |> 
+   add_sublinks(emale_prot_ava) |>
+   sync() + # synchronize genome directions based on links
+   geom_feat(position="identity", size=6) +
+   geom_seq() +
+   geom_link(data=links(2)) +
+   geom_bin_label() +
+   geom_gene(aes(fill=name)) +
+   geom_gene_tag(aes(label=name), nudge_y=0.1, check_overlap = TRUE) +
+   geom_feat(data=feats(ngaros), alpha=.3, size=10, position="identity") +
+   geom_feat_note(aes(label="Ngaro-transposon"), data=feats(ngaros),
+                  nudge_y=.1, vjust=0) +
+   geom_wiggle(aes(z=score, linetype="GC-content"), feats(gc),
+               fill="lavenderblush4", position=position_nudge(y=-.2), height = .2) +
+   scale_fill_brewer("Genes", palette="Dark2", na.value="cornsilk3")
Transforming sublinks with "aa2nuc". Disable with `.transform = "none"`
Flipping: Cflag_017B,BVI_069,BVI_008A
wiggle bounds
• mid:  0.38
• low:  0.2
• high: 0.76
Error in guides$setup(scales, aesthetics, default = params$guide_default %||%  : 
  attempt to apply non-function
>