Update team_roster() arguments

k5cents · Sep 16, 2021 · 1393ef0 · 1393ef0
1 parent e446f36
commit 1393ef0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/R/roster.R b/R/roster.R
@@ -7,14 +7,14 @@
 #' team_roster(leagueId = "42654852")
 #' @return A dataframe (or list) with league teams.
 #' @export
-team_roster <- function(leagueId = ffl_id(), seasonId = 2021,
-                        leagueHistory = FALSE, ...) {
+team_roster <- function(leagueId = ffl_id(), leagueHistory = FALSE, ...) {
   dat <- ffl_api(
     leagueId = leagueId,
-    view = "mRoster",
     leagueHistory = leagueHistory,
+    view = "mRoster",
     ...
   )
+  stop_predraft(dat)
   if (leagueHistory) {
     lapply(dat$teams, function(x) lapply(x$roster$entries, out_roster))
   } else {

diff --git a/man/team_roster.Rd b/man/team_roster.Rd