Nothing
#' @rdname load_game_info_sup
#' @title **Download a data frame of supplemental data about MLB games since 2008.**
#' @return Function returns a tibble with various columns, including:
#' * game_pk
#' * game_date
#' * venue id
#' * attendance
#' * game temperature
#' * wind speed
#' * direction
#' * start time
#' * end time
#' @export
#' @examples \donttest{
#' try(load_game_info_sup())
#' }
load_game_info_sup <- function() {
tryCatch(
expr = {
df <- csv_from_url("https://app.box.com/shared/static/qbtz8s1yxauamohcvrrjv2ba65v5p2d3.csv", encoding ="UTF-8")
df <- df %>%
make_baseballr_data("Supplementary MLB Game Info data from baseballr-data repository",Sys.time())
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no supplementary game info data available!"))
},
finally = {
}
)
return(df)
}
#' @rdname get_game_info_sup_petti
#' @title **(legacy) Download a data frame of supplemental data about MLB games since 2008.**
#' @return Function returns a tibble with various columns, including:
#' * game_pk
#' * game_date
#' * venue id
#' * attendance
#' * game temperature
#' * wind speed
#' * direction
#' * start time
#' * end time
#' @keywords legacy
#' @export
get_game_info_sup_petti <- load_game_info_sup
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.