Merge pull request #346 from ffverse/dev

v1.4.7 to CRAN - minor fixes and new tidyr support

Author: tanho63

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: ffscrapr
 Title: API Client for Fantasy Football League Platforms
-Version: 1.4.6
+Version: 1.4.7
 Authors@R: 
     c(person(given = "Tan",
              family = "Ho",
@@ -38,7 +38,6 @@ Imports:
     httr (>= 1.4.0),
     jsonlite (>= 1.6.0),
     lifecycle,
-    lubridate (>= 1.5.0),
     magrittr (>= 1.5.0),
     nflreadr (>= 1.1.0),
     memoise (>= 2.0.0),
@@ -61,5 +60,5 @@ LazyData: true
 VignetteBuilder:
     knitr
 Encoding: UTF-8
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
 Roxygen: list(markdown = TRUE)

NEWS.md

@@ -1,3 +1,22 @@
+# ffscrapr 1.4.7
+
+The main goal of v1.4.7 is to patch some minor bugs and to pre-emptively correct issues related to upstream dependency `tidyr`.
+
+## Changes
+- Fix `ff_scoringhistory.flea_conn()` kicking bug.
+- Fix `ff_schedule.mfl_conn()` NA bug.
+- Remove lubridate dep
+- Update `.espn_stat_map()` to add threshold-based scoring and fix a missing defensive scoring setting 
+- Update `ff_scoringhistory.espn_conn()` to add threshold calcs. (thank you, @scottfrechette!)
+- Fix `espn_potentialpoints()` to move regular flex ahead of superflex 
+- `ff_scoring()` for MFL gets some tweaks to support changes to tidyr (thanks, @DavisVaughan!)
+
+## Thanks
+
+Grateful to [@davisderodes](https://github.com/davisderodes),[@DavisVaughan](https://github.com/DavisVaughan), [@draftydesert277](https://github.com/draftydesert277),[@scottfrechette](https://github.com/scottfrechette), and [@TheMathNinja](https://github.com/TheMathNinja) for their contributions to this release - feedback, issues, and PRs!
+
+---
+
 # ffscrapr 1.4.6
 
 The main goal of v1.4.6 is to patch some minor bugs, introduce a unified dependency on nflreadr, and add some support for kicker scoring.

R/0_generics.R

@@ -28,9 +28,9 @@ ff_connect <- function(platform = "mfl", league_id = NULL, ...) {
     "fleaflicker" = ,
     "flea" = fleaflicker_connect(league_id = league_id, ...),
     "espn" = espn_connect(league_id = league_id, ...),
-    # 'yahoo' = yahoo_connect(league_id = league_id,...)
     "sleeper" = sleeper_connect(league_id = league_id, ...),
     "mfl" = mfl_connect(league_id = league_id, ...)
+    # 'yahoo' = stop("Y YOU YAHOO, YOU YAHOO?")
   )
 
   if (is.null(x)) stop("We can't connect to that platform yet!")

R/0_utils.R

@@ -17,3 +17,16 @@ NULL
 #' @export
 #' @importFrom magrittr %>%
 NULL
+
+#' date utils
+#' @keywords internal
+.as_datetime <- function(x){
+  origin <- structure(0, class = c("POSIXct", "POSIXt"), tzone = "UTC")
+  as.POSIXct(x,origin = origin, tz = "UTC")
+}
+
+#' date utils
+#' @keywords internal
+.as_date <- function(x){
+  as.Date(x, tz = "UTC")
+}

R/espn__helpers.R

@@ -188,18 +188,21 @@
   c(
     "3" = "passingYards",
     "4" = "passingTouchdowns",
+    "8" = "passing25Yards",
     "19" = "passing2PtConversions",
     "20" = "passingInterceptions",
     "24" = "rushingYards",
     "25" = "rushingTouchdowns",
     "26" = "rushing2PtConversions",
+    "28" = "rushing10Yards",
     "35" = "rushing40YardTD",
     "37" = "rushing100YardGame",
     "38" = "rushing200YardGame",
     "42" = "receivingYards",
     "43" = "receivingTouchdowns",
     "44" = "receiving2PtConversions",
     "45" = "receiving40YardTD",
+    "48" = "receiving10Yards",
     "53" = "receivingReceptions",
     "56" = "receiving100YardGame",
     "57" = "receiving200YardGame",
@@ -229,6 +232,7 @@
     "104" = "interceptionReturnTouchdown",
     "114" = "kickoffReturnYards",
     "115" = "puntReturnYards",
+    "122" = "defensive22To27PointsAllowed",
     "123" = "defensive28To34PointsAllowed",
     "124" = "defensive35To45PointsAllowed",
     "125" = "defensive46+PointsAllowed",

R/espn_draft.R

@@ -33,7 +33,7 @@ ff_draft.espn_conn <- function(conn, ...) {
     tidyr::unnest_wider("picks") %>%
     dplyr::mutate_at(
       dplyr::vars(dplyr::contains("completeDate")),
-      ~ lubridate::as_datetime(.x / 1000)
+      ~ .as_datetime(.x / 1000)
     ) %>%
     dplyr::rename(
       "player_id" = "playerId",

R/espn_potentialpoints.R

@@ -12,8 +12,8 @@
 #' @examples
 #' \donttest{
 #' try({ # try only shown here because sometimes CRAN checks are weird
-#'   conn <- espn_connect(season = 2020, league_id = 899513)
-#'   espn_potentialpoints(conn, weeks = 1:3)
+#'   conn <- espn_connect(season = 2021, league_id = 950665)
+#'   espn_potentialpoints(conn, weeks = 1)
 #' }) # end try
 #' }
 #' @export
@@ -102,7 +102,7 @@ espn_potentialpoints <- function(conn, weeks = 1:17) {
 .espn_pp_lineupkeys <- function() {
   tibble::tibble(
     lineup_id = c("0", "2", "3", "4", "5", "6", "7", "16", "17", "20", "21", "23", "8", "9", "10", "11", "24", "12", "13", "14", "15"),
-    priority = c(1, 2, 5, 3, 6, 4, 8, 9, 10, 0, 0, 11, 12, 13, 16, 14, 15, 17, 18, 19, 20)
+    priority = c(1, 2, 5, 3, 6, 4, 9, 10, 11, 0, 0, 8, 12, 13, 16, 14, 15, 17, 18, 19, 20)
   ) %>%
     dplyr::arrange(.data$priority) %>%
     dplyr::mutate(lineup_id = as.character(.data$lineup_id))

R/espn_rosters.R

@@ -59,7 +59,7 @@ ff_rosters.espn_conn <- function(conn, week = NULL, ...) {
       eligible_pos = purrr::map(.data$eligible_pos, ~ .espn_lineupslot_map()[as.character(.x)] %>% unname()),
       team = purrr::map_chr(as.character(.data$team), ~ .espn_team_map()[.x]),
       player = NULL,
-      acquisition_date = lubridate::as_datetime(.data$acquisition_date / 1000)
+      acquisition_date = .as_datetime(.data$acquisition_date / 1000)
     ) %>%
     dplyr::left_join(x = franchises, by = "franchise_id")
 

R/espn_scoringhistory.R

@@ -20,16 +20,13 @@
 ff_scoringhistory.espn_conn <- function(conn, season = 1999:2020, ...) {
   checkmate::assert_numeric(season, lower = 1999, upper = as.integer(format(Sys.Date(), "%Y")))
 
-  # Pull in scoring rules for that league
   league_rules <-
     ff_scoring(conn) %>%
     dplyr::left_join(
       ffscrapr::nflfastr_stat_mapping %>% dplyr::filter(.data$platform == "espn"),
       by = c("stat_name" = "ff_event")
     )
 
-  ## CHECK IF KICKING IS IN THE RULESET FOR THIS LEAGUE, IF SO, USE KICKER
-
   ros <- .nflfastr_roster(season)
 
   ps <- .nflfastr_offense_long(season)
@@ -40,6 +37,10 @@ ff_scoringhistory.espn_conn <- function(conn, season = 1999:2020, ...) {
       .nflfastr_kicking_long(season))
   }
 
+  if(any(c("passing25Yards","rushing10Yards","receiving10Yards") %in% league_rules$stat_name)){
+    ps <- .espn_threshold_scoring(ps)
+  }
+
   ros %>%
     dplyr::inner_join(ps, by = c("gsis_id"="player_id","season")) %>%
     dplyr::inner_join(league_rules, by = c("metric"="nflfastr_event","pos")) %>%
@@ -56,3 +57,17 @@ ff_scoringhistory.espn_conn <- function(conn, season = 1999:2020, ...) {
     )
 
 }
+
+.espn_threshold_scoring <- function(ps){
+
+  thresholds <- ps %>%
+    dplyr::filter(.data$metric %in% c("passing_yards","rushing_yards","receiving_yards")) %>%
+    dplyr::mutate(
+      threshold = ifelse(.data$metric == "passing_yards",25,10),
+      metric = paste(.data$metric,.data$threshold,sep = "_"),
+      value = .data$value %/% .data$threshold,
+      threshold = NULL
+    )
+
+  dplyr::bind_rows(ps,thresholds)
+}

R/espn_transactions.R

@@ -64,7 +64,7 @@ ff_transactions.espn_conn <- function(conn, limit = 1000, ...) {
     purrr::set_names("x") %>%
     tidyr::hoist("x", "messages", "date") %>%
     dplyr::mutate(
-      timestamp = lubridate::as_datetime(.data$date / 1000),
+      timestamp = .as_datetime(.data$date / 1000),
       x = NULL
     ) %>%
     tidyr::unnest_longer("messages") %>%