R/gday.R

In jennybc/gameday: Let R tell you if your NHL team has a game today

#' Is it Gameday?
#'
#' This function returns TRUE if your NHL team plays today
#' and FALSE otherwise
#'
#' You know then problem: You're in your office writing R code and
#' suddenly have the urge to check whether your NHL team has a game today.
#' Before you know it you just wasted 15 minutes browsing the lastest
#' news on your favorite hockey webpage.
#' Suffer no more! You can now ask R directly, without tempting yourself
#' by firing up your web browser.
#'
#' @param team.name The name of your team
#' @return Logical \code{TRUE} if \code{team.name} has a NHL game today,
#' \code{FALSE} otherwise
#' @note case in \code{team.name} is ignored
#' @export
#' @examples
#' gday("canucks")
#' gday("Bruins")
gday <- function(team.name){
  url  <- paste0('http://live.nhle.com/GameData/GCScoreboard/',
                 Sys.Date(), '.jsonp')
  grepl(team.name, RCurl::getURL(url), ignore.case=TRUE)
}