#' 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))
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.