R/generics.R

In flsck/rlolesports: An R Interface for the League of Leagend ESports API

# Print Methods etc -----

print.leagueRequest <- function(x, ...) {
  cat("get_leagues with hl: ", x$hl, "\n", sep = "")
  utils::str(x$content, vec.len = 1) # print(head(x$content))
  print(x$response)
  invisible(x)
}

print.tournamentsRequest <- function(x, ...) {
  cat("Tournaments for Id: ", x$leagueId, "\n", sep = "")
  utils::str(x$content, vec.len = 1)
  print(x$response)
  invisible(x)
}