R/nba-standings-by-date.R

In 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 = "")
  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()
  }
  return(list(East = east, West = west))
}