ryantimpe

library(tidyverse); library(rvest);
library(png)

#Phylopic images here:
https://github.com/ryantimpe/ChartOfTheDay/tree/master/data

#Text wrapping function ---
wrapper <- function(x, ...) {paste(strwrap(x, ...), collapse = "\n")}

#Scale image into feet