R/bart_teams.R

In toRvik: Extensive and Tidy NCAA Men's College Basketball Data

#' Teams and Conferences
#'
#' Returns teams and their conference affiliation by year
#'
#' Function pulls teams and their men's basketball conference affiliation
#' by year back to 2008
#'
#' @returns Returns a tibble with three columns:
#' \describe{
#'   \item{\code{team}}{character.} \item{\code{year}}{integer.}
#'   \item{\code{conf}}{character.}}
#'
#' @param year Year to filter
#' @param conf Conference to filter
#' @importFrom magrittr %>%
#' @importFrom dplyr as_tibble
#' @importFrom glue glue
#' @importFrom jsonlite fromJSON
#' @examples
#' \donttest{try(bart_teams(conf='ACC'))}
#'
#' @export

bart_teams <- function(year = NULL, conf = NULL) {
  base_url <- 'https://api.cbbstat.com/teams'
  parsed <- httr::modify_url(
    base_url,
    query = list(
      year = year,
      conf = conf
    )
  )
  data <- data.frame()

  tryCatch(
    expr = {
      data  <- jsonlite::fromJSON(parsed) %>%
        make_toRvik_data('Team Database', Sys.time())
    },
    error = function(e) {
      check_docs_error()
    },
    warning = function(w) {
    },
    finally = {
    }
  )
  return(data)
}