Running examples in 'fivethirtyeight-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: comic_characters
> ### Title: Comic Books Are Still Made By Men, For Men And About Men
> ### Aliases: comic_characters
> ### Keywords: datasets
> 
> ### ** Examples
> 
> # To obtain the entire dataset, run the following code:
> library(readr)
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> library(tidyr)
> library(lubridate)

Attaching package: 'lubridate'

The following objects are masked from 'package:dplyr':

    intersect, setdiff, union

The following objects are masked from 'package:base':

    date, intersect, setdiff, union

> library(janitor)

Attaching package: 'janitor'

The following objects are masked from 'package:stats':

    chisq.test, fisher.test

> 
> # Get DC characters:
> comic_characters_dc <- 
+   "https://github.com/fivethirtyeight/data/raw/master/comic-characters/dc-wikia-data.csv" %>% 
+   read_csv() %>% 
+   clean_names() %>% 
+   mutate(publisher = "DC")
Parsed with column specification:
cols(
  page_id = col_double(),
  name = col_character(),
  urlslug = col_character(),
  ID = col_character(),
  ALIGN = col_character(),
  EYE = col_character(),
  HAIR = col_character(),
  SEX = col_character(),
  GSM = col_character(),
  ALIVE = col_character(),
  APPEARANCES = col_double(),
  `FIRST APPEARANCE` = col_character(),
  YEAR = col_double()
)
> 
> # Get Marvel characters:
> comic_characters_marvel <- 
+   "https://github.com/fivethirtyeight/data/raw/master/comic-characters/marvel-wikia-data.csv" %>% 
+   read_csv() %>% 
+   clean_names() %>% 
+   mutate(publisher = "Marvel")
Parsed with column specification:
cols(
  page_id = col_double(),
  name = col_character(),
  urlslug = col_character(),
  ID = col_character(),
  ALIGN = col_character(),
  EYE = col_character(),
  HAIR = col_character(),
  SEX = col_character(),
  GSM = col_character(),
  ALIVE = col_character(),
  APPEARANCES = col_double(),
  `FIRST APPEARANCE` = col_character(),
  Year = col_double()
)
> 
> # Merge two dataset and perform further data wrangling:
> comic_characters <-
+   comic_characters_dc %>% 
+   bind_rows(comic_characters_marvel) %>% 
+   separate(first_appearance, c("year2", "month"), ", ", remove = FALSE) %>%
+   mutate(
+     # If month was missing, set as January and day as 01:
+     month = ifelse(is.na(month), "01", month),
+     day = "01",
+     # Note some years missing:
+     date = ymd(paste(year, month, day, sep = "-")),
+     align = factor(
+       align, 
+       levels = c("Bad Characters", "Reformed Criminals", "Netural Characters", "Good Characters"),
+       ordered = TRUE)
+   ) %>%
+   select(publisher, everything(), -c(year2, day))
Error in bquote(on.exit({ : 'where' must be an environment
Calls: %>% ... separate -> <Anonymous> -> eval_bare -> exit_handler -> bquote
Execution halted