R/nba-standings-by-date.R

In rtelmore/ballr: Access to Current and Historical Basketball Data

#' NBA Standings by Date
#'
#' This function returns the NBA standings from the given date
#'
#' @param date_string A String of the form "2015-04-01"
#' @return An list containing the standings in the Eastern and Western Conferences
#' @examples
#' \dontrun{
#' NBAStandingsByDate("2010-01-31") # Jan 31, 2010
#' NBAStandingsByDate("2017-11-09") # Nov 09, 2017
#' }
#' @export
NBAStandingsByDate <- function(date_string = Sys.Date()){
  date_string <- lubridate::ymd(date_string)
  y <- lubridate::year(date_string)
  m <- lubridate::month(date_string)
  d <- lubridate::day(date_string)
  url <- paste(getOption("NBA_api_base"),
               "/friv/standings.cgi?",
               "month=", m,
               "&day=", d,
               "&year=", y,
               "&lg_id=NBA", sep = "")
  try({
    r <- xml2::read_html(url)
    east <- rvest::html_table(r, fill = T)[[1]]
    west <- rvest::html_table(r, fill = T)[[2]]
    if (utils::packageVersion("janitor") > "0.3.1") {
      east <- janitor::clean_names(east, case = "old_janitor")
      west <- janitor::clean_names(west, case = "old_janitor")
    } else {
      east <- east %>%
        janitor::clean_names() %>%
        janitor::remove_empty_cols()
      west <- west %>%
        janitor::clean_names() %>%
        janitor::remove_empty_cols()
    }
  }, silent = TRUE
  )
  if(exists("east")){
    return(list(East = east, West = west))
  } else (
    cat(sprintf("Standings are not available on %s.", date_string))
    )
}