From 19f718446a682473d663d3c320a1cee8be501b96 Mon Sep 17 00:00:00 2001
From: James Ingold <jamesp.ingold@gmail.com>
Date: Fri, 30 Mar 2018 10:39:05 -0500
Subject: [PATCH] changing gameId parsing to remove day_{xx}

---
 R/getData.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/getData.R b/R/getData.R
index 8f91858..79ae4b1 100644
--- a/R/getData.R
+++ b/R/getData.R
@@ -120,12 +120,12 @@ getGameIds <- function(date = Sys.Date()) {
     yyyy = format(date, "%Y")
     mm = format(date, "%m")
     dd = format(date, "%d")
-    url <- paste("http://gd2.mlb.com/components/game/mlb/year_", yyyy, "/month_", mm, "/day_", dd, "/", sep = "")
+    url <- paste("http://gd2.mlb.com/components/game/mlb/year_", yyyy, "/month_", mm, "/day_", dd, sep = "")
     message(paste("\nRetrieving data from", date, "..."))
     a <- RCurl::getURL(url)
     b <- strsplit(a, "<a")
     ind <- grep("gid", b[[1]])
-    games <- substring(b[[1]][ind], 8, 37)
+    games <- substring(b[[1]][ind], 15, 44)
     message(paste("\n...found", length(games), "games\n"))
     return(games)
 }