xkcd style graph - error with registered fonts

Question

I want to create the graph, like at the link for the previous topic, but receive error:

In grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y

Answer 1

I think I had the same problem some time ago. Here is what I did:

1. Put Humor-Sans font file into your project folder and make sure your working directory is set to the same.

2. Import the fonts (this might take a while) by calling

   font_import()
   

3. Look through the list of fonts and see if you can find Humor-Sans by

   fonts()
   

4. Load the fonts

   loadfonts(device = "win")
   

Let me know if it works!