-
Notifications
You must be signed in to change notification settings - Fork 7
/
members.R
31 lines (30 loc) · 796 Bytes
/
members.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#' 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 members.
#' @family league functions
#' @export
league_members <- function(leagueId = ffl_id(), leagueHistory = FALSE, ...) {
dat <- ffl_api(
leagueId = leagueId,
leagueHistory = leagueHistory,
view = "mNav",
...
)
if (leagueHistory && is.list(dat$teams)) {
names(dat$members) <- dat$seasonId
lapply(dat$members, out_member)
} else {
out_member(dat$members)
}
}
out_member <- function(x) {
x <- x[, c("id", "displayName", "firstName", "lastName",
"isLeagueCreator", "isLeagueManager")]
x <- change_names(x, "id", "memberId")
as_tibble(x)
}