Return list of current team rosters

TODO: Add `scoringPeriodId` argument to get previous rosters? Progress to #24
k5cents · Aug 15, 2021 · 40e058b · 40e058b
1 parent 61b6f59
commit 40e058b
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 5 deletions.
diff --git a/R/roster.R b/R/roster.R
@@ -63,11 +63,11 @@ out_roster <- function(entry, t = NULL) {
     id = player$id,
     firstName = player$firstName,
     lastName = player$lastName,
-    proTeam  = fflr::nfl_teams$abbrev[match(player$proTeamId, fflr::nfl_teams$team)],
+    proTeam  = nfl_teams$abbrev[match(player$proTeamId, nfl_teams$team)],
     PositionId = pos_abbrev(player$defaultPositionId),
     injuryStatus = injury_status,
-    proj  = proj_dbl,
-    score = score_dbl,
+    projectedScore  = proj_dbl,
+    actualScore = score_dbl,
     percentStarted = player$ownership$percentStarted,
     percentOwned = player$ownership$percentOwned,
     percentChange = round(player$ownership$percentChange, digits = 3)

diff --git a/man/team_roster.Rd b/man/team_roster.Rd
diff --git a/tests/testthat/test-roster.R b/tests/testthat/test-roster.R
@@ -0,0 +1,18 @@
+test_that("All current team rosters as list", {
+  r <- team_roster(leagueId = "42654852")
+  expect_type(r, "list")
+  expect_length(r, 4)
+  expect_s3_class(r[[1]], "data.frame")
+  expect_length(r[[1]], 15)
+  expect_s3_class(r[[1]]$slot, "factor")
+})
+
+test_that("All final period team rosters as list of list", {
+  rh <- team_roster(leagueId = "252353", leagueHistory = TRUE)
+  expect_gt(length(rh), 4)
+  expect_length(rh[[1]], 8)
+  expect_length(rh[[2]], 10)
+  expect_type(rh, "list")
+  expect_type(rh[[1]], "list")
+  expect_s3_class(rh[[1]][[1]], "data.frame")
+})