# get necessary libraries
library(tidyverse)
library(dplyr)
library(na.tools)
library(ggimage)

# read onside kick data
pbp <- read_csv(url("https://github.com/ryurko/nflscrapR-data/raw/master/play_by_play_data/regular_season/reg_pbp_2018.csv"))

# filter to get onside kicks
pbp_onside_kicks <- pbp %>%
  filter(!is_na(epa), stringr::str_detect(desc, "onside"), own_kickoff_recovery == 1)

# view onside kicks
pbp_onside_kicks %>% select(own_kickoff_recovery, epa, posteam, defteam, desc, play_type) %>% head