whatr_airdate() is returning unexpected results for early episodes that do not exist on the J! Archive, but conflict with Super Jeopardy! episodes of the same number.
library(reprex)
library(whatr)
# Note how there's no data for a show "#400":
# http://j-archive.com/showseason.php?season=2
whatr_airdate("#400")
#> # A tibble: 1 x 3
#> game show date
#> <int> <int> <date>
#> 1 NA NA NA
# This returns the expected result, a tibble of NAs
# Note on the J! Archive that there is also no data for show "#7":
# http://j-archive.com/showseason.php?season=1
whatr_airdate("#7")
#> # A tibble: 1 x 3
#> game show date
#> <int> <int> <date>
#> 1 1349 7 1990-07-28
# This does not return the expected result.
# It is pulling from _Super Jeopardy!_ episode #7:
# http://www.j-archive.com/showseason.php?season=superjeopardy
whatr_airdate() is returning unexpected results for early episodes that do not exist on the J! Archive, but conflict with Super Jeopardy! episodes of the same number.