Update app.R

app.R

@@ -109,6 +109,14 @@ AAA25 <- download_private_parquet("TimStats/StatcastDataAll", "AAA25.parquet")
 AAA25$level <- "AAA"
 FSL25 <- download_private_parquet("TimStats/StatcastDataAll", "FSL25.parquet")
 FSL25$level <- "FSL"
+
+MLB26 <- download_private_parquet("TimStats/StatcastDataAll", "MLB26.parquet")
+MLB26$level <- "MLB"
+AAA26 <- download_private_parquet("TimStats/StatcastDataAll", "AAA26.parquet")
+AAA26$level <- "AAA"
+#FSL26 <- download_private_parquet("TimStats/StatcastDataAll", "FSL26.parquet")
+#FSL26$level <- "FSL"
+
 #ST <- read.csv("SpringT25.csv", header = TRUE, check.names = FALSE, fileEncoding = "UTF-8")
 
 #names(ST)
@@ -119,9 +127,9 @@ AAA$level <- "AAA"
 FSL <- download_private_parquet("TimStats/StatcastDataAll", "FSL.parquet")
 FSL$level <- "FSL"
 print("Mlb")
-MLB <- rbind(MLB,MLB25)
+MLB <- rbind(MLB,MLB25,MLB26)
 print("aaa")
-AAA <- rbind(AAA,AAA25)
+AAA <- rbind(AAA,AAA25,AAA26)
 print("fsl")
 FSL <- rbind(FSL,FSL25)
 
@@ -393,7 +401,7 @@ ui <- fluidPage(
                       multiple = TRUE
           ),
           dateRangeInput("date_range", "Date Range:",
-                         start = "2025-03-18",
+                         start = "2026-03-18",
                          end = updatedDate,
                          #min = "2024-02-23",
                          max = Sys.Date() - 1