stacks$serif <- c("Satisfy", "serif")
setSVGFonts(stacks)


pdf(NULL, width=2, height=1)
grid.text("hello", gp=gpar(fontfamily="serif"))
svg <- grid.export(NULL)$svg
dev.off()


root <- 
    XML::xmlRoot(svg, "svg:svg",
            namespaces=c(svg="http://www.w3.org/2000/svg"))
url <- 
    "url('https://fonts.googleapis.com/css?family=Satisfy');"
styleNode <- 
    XML::newXMLNode("style", 
               attrs=c(type="text/css"),
               paste("@import", url))
invisible(XML::newXMLNode("defs", styleNode, parent=root))


XML::saveXML(root, "Figures/export-fonts.svg")