Add moves_summary()

Progress towards #24

NAMESPACE

@@ -16,6 +16,7 @@ export(league_members)
 export(league_name)
 export(league_size)
 export(league_teams)
+export(moves_summary)
 export(player_info)
 export(pro_schedule)
 export(roster_moves)

R/transactions.R

@@ -0,0 +1,43 @@
+#' League transactions
+#'
+#' Summary of transactions and roster changes made during a season by team.
+#'
+#' @inheritParams ffl_api
+#' @return A data frame of transaction counts by team.
+#' @examples
+#' moves_summary(leagueId = "42654852")
+#' @importFrom tibble as_tibble
+#' @export
+moves_summary <- function(leagueId = ffl_id(), leagueHistory = FALSE, ...) {
+  dat <- ffl_api(leagueId, leagueHistory, view = "mTeam", ...)
+  if (leagueHistory) {
+    out <- rep(list(NA), length(dat$teams))
+    for (i in seq_along(dat$members)) {
+      out[[i]] <- out_trans(
+        teams = dat$teams[[i]],
+        y = dat$seasonId[i],
+        w = dat$scoringPeriodId[i]
+      )
+    }
+  } else {
+    out <- out_trans(
+      teams = dat$teams,
+      y = dat$seasonId,
+      w = dat$scoringPeriodId
+    )
+  }
+  return(out)
+}
+
+out_trans <- function(teams, y = NULL, w = NULL) {
+  teams$transactionCounter$matchupAcquisitionTotals <- NULL
+  x <- data.frame(
+    seasonId = y,
+    scoringPeriodId = w,
+    teamId = teams$id,
+    abbrev = factor(teams$abbrev, levels = teams$abbrev),
+    waiverRank = teams$waiverRank,
+    teams$transactionCounter
+  )
+  as_tibble(x)
+}