fix "no visible binding for global variable" notes

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 {