knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
XKCDdata is a little package to get data from individual xkcd comics, written by Randall Munroe.
install.packages("XKCDdata") # or: # install.packages("devtools") devtools::install_github("RobertMyles/XKCDdata")
Let's get data on this comic (it's number 1421):
library(XKCDdata) get_comic(comic = 1421)
Or you can get a list of comics pretty easily using purrr, apply()
or for loops. With purrr, it would be something like:
# list of comics: cm <- c(1421, 641, 87, 92) purrr::map_df(cm, get_comic)
Then you could plot it XKCD-style with the xkcd package if you wanted.
Thanks to Colin, you can view the comics inside your default Viewer (in the Viewer pane if you're on RStudio)! Give it a shot with:
print_xkcd(1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.