devtools::install_github("mgahan/SeatGeekR")
library(SeatGeekR)
A R package that allows the user to scrape ticket information from the Seatgeek API
exampleOutput <- seatgeek_extract_slug(TEAM_NAME="nebraska-cornhuskers-football")
kable(exampleOutput[, .(title, stats.average_price, stats.highest_price, stats.listing_count, stats.lowest_price)])
| title | stats.average_price | stats.highest_price | stats.listing_count | stats.lowest_price |
|---|---|---|---|---|
| Northwestern Wildcats at Nebraska Cornhuskers Football | 100 | 601 | 1127 | 32 |
| Nebraska Cornhuskers at Minnesota Golden Gophers Football | 161 | 347 | 803 | 90 |
| Nebraska Cornhuskers at Penn State Nittany Lions Football | 208 | 1473 | 1376 | 98 |
| Iowa Hawkeyes at Nebraska Cornhuskers Football | 173 | 711 | 1560 | 65 |
| Purdue Boilermakers at Nebraska Cornhuskers Football | 209 | 216 | 3 | 204 |
| Illinois Fighting Illini at Nebraska Cornhuskers Football | 209 | 216 | 3 | 204 |
Before accessing the API, you must visit the SeatGeek API and create your credentials here;
https://seatgeek.com/account/develop
Seatgeek makes it pretty easy to get your credentials. Also, as of this time, Seatgeek does not really seem to have limits on their API.
Right now, this package has the main functionality of being able to search by team name. In the future, I hope to allow the app to search by more. I do have a list of teamnames available for those interested.
fpath <- system.file("Teams", "Team_Slug_Names.csv", package="SeatGeekR")
TeamNames <- fread(fpath)
kable(tail(TeamNames))
| Sport | Team | Conference | Division |
|---|---|---|---|
| NCAA Football | missouri-tigers-football | SEC | East |
| NCAA Football | ole-miss-rebels-football | SEC | West |
| NCAA Football | south-carolina-gamecocks-football | SEC | East |
| NCAA Football | tennessee-volunteers-football | SEC | East |
| NCAA Football | texas-a-m-aggies-football | SEC | West |
| NCAA Football | vanderbilt-commodores-football | SEC | East |