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 on the specified date and FALSE otherwise
#'
#' You know the 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 The name of your team. Defaults to \code{Canucks}.
#' @param date The specified date to check. Defaults to today's date.
#' @return Logical \code{TRUE} if \code{team} has a NHL game today,
#' \code{FALSE} otherwise
#' @keywords misc
#' @note case in \code{team} is ignored
#' @export
#' @examples
#' gday()
#' gday("canucks")
#' gday("Rangers")
gday <- function(team = "canucks", date = Sys.Date()){
	assertthat::assert_that(check_date(date))

	if(internet_connection())
		url <- paste0("http://live.nhle.com/GameData/GCScoreboard/", date, ".jsonp")
	else
		stop("Please check your internet connection.")

	grepl(team, RCurl::getURL(url), ignore.case = TRUE)
}