Add league_members()

Progress towards #24

NAMESPACE

@@ -10,6 +10,7 @@ export(ffl_seasons)
 export(ffl_week)
 export(ffl_year)
 export(league_info)
+export(league_members)
 export(league_name)
 export(league_size)
 export(league_teams)

R/members.R

@@ -0,0 +1,29 @@
+#' Fantasy league teams
+#'
+#' The teams in a league and their owners.
+#'
+#' @inheritParams ffl_api
+#' @examples
+#' league_members(leagueId = "42654852")
+#' @return A dataframe (or list) with league teams.
+#' @family League information
+#' @export
+league_members <- function(leagueId = ffl_id(), seasonId = 2021,
+                           leagueHistory = FALSE) {
+  dat <- ffl_api(
+    leagueId = leagueId,
+    seasonId = seasonId,
+    leagueHistory = leagueHistory
+  )
+  if (leagueHistory && is.list(dat$teams)) {
+    names(dat$teams) <- dat$seasonId
+    lapply(dat$teams, out_member)
+  } else {
+    out_team(dat$teams)
+  }
+}
+
+out_member <- function(z) {
+  z$abbrev <- factor(z$id, labels = z$abbrev)
+  as_tibble(z)
+}