diff --git a/R/build_playstats.R b/R/build_playstats.R index 8d53b871..22320133 100644 --- a/R/build_playstats.R +++ b/R/build_playstats.R @@ -29,17 +29,17 @@ build_playstats <- function(seasons = nflreadr::most_recent_season(), drives <- raw_data[[1]][["drives"]] %>% purrr::keep(is.list) out <- tibble::tibble(d = drives) %>% - tidyr::unnest_wider(d) %>% - tidyr::unnest_longer(plays) %>% - tidyr::unnest_wider(plays, names_sep = "_") %>% - dplyr::select(playId = plays_id, playStats = plays_players) %>% - tidyr::unnest_longer(playStats) %>% - tidyr::unnest_longer(playStats) %>% - tidyr::unnest_wider(playStats) %>% + tidyr::unnest_wider(.data$d) %>% + tidyr::unnest_longer(.data$plays) %>% + tidyr::unnest_wider(.data$plays, names_sep = "_") %>% + dplyr::select("playId" = "plays_id", "playStats" = "plays_players") %>% + tidyr::unnest_longer(.data$playStats) %>% + tidyr::unnest_longer(.data$playStats) %>% + tidyr::unnest_wider(.data$playStats) %>% dplyr::mutate( - playId = as.integer(playId), - statId = as.integer(statId), - yards = as.integer(yards), + playId = as.integer(.data$playId), + statId = as.integer(.data$statId), + yards = as.integer(.data$yards), team.id = NA_character_ ) %>% dplyr::select(-"sequence") %>% @@ -49,12 +49,12 @@ build_playstats <- function(seasons = nflreadr::most_recent_season(), ) %>% tidyr::nest( playStats = c( - statId, - yards, - playerName, - team.id, - team.abbreviation, - gsis.Player.id + .data$statId, + .data$yards, + .data$playerName, + .data$team.id, + .data$team.abbreviation, + .data$gsis.Player.id ) ) } else {