Update app.R

app.R

@@ -11,9 +11,50 @@ library(gridExtra)
 library(gtable)
 library(httr)
 
-# showtext_opts(dpi = 300)  # Match plot DPI
-# showtext_auto(enable = TRUE)
-# font_add_google("Roboto Condensed", "roboto")
+check_patreon_access <- function(email) {
+  campaign_id <- Sys.getenv("PATREON_CAMPAIGN_ID")
+  access_token <- Sys.getenv("PATREON_ACCESS_TOKEN")
+  
+  base_url <- paste0("https://www.patreon.com/api/oauth2/v2/campaigns/", campaign_id, "/members")
+  
+  params <- list(
+    `include` = "currently_entitled_tiers",
+    `fields[member]` = "patron_status,email",
+    `fields[tier]` = "title"
+  )
+  
+  response <- GET(
+    base_url,
+    query = params,
+    add_headers(
+      `Authorization` = paste("Bearer", access_token),
+      `User-Agent` = "R/httr"
+    )
+  )
+  
+  content <- fromJSON(rawToChar(response$content))
+  
+  # Check in data$attributes for matching email
+  matching_row <- which(content$data$attributes$email == email)
+  
+  if (length(matching_row) > 0) {
+    # Get patron status
+    patron_status <- content$data$attributes$patron_status[matching_row]
+    
+    if (patron_status == "active_patron") {
+      # Get tier info
+      tier_data <- content$data$relationships$currently_entitled_tiers$data[[matching_row]]
+
+      tier_id <- tier_data$id
+      
+      result <- tier_id %in% c("25062087", "25062090")
+      
+      return(result)
+    }
+  }
+  
+  return(FALSE)
+}
 font_add_google("Roboto Condensed")
 
 is_barrel <- function(df) {
@@ -366,6 +407,86 @@ ui <- fluidPage(
 
 # Server logic
 server <- function(input, output,session) {
+
+    # Reactive value to track authentication status
+  credentials <- reactiveValues(logged_in = FALSE)
+  
+  # Render login page or main content based on auth status
+  output$page <- renderUI({
+    if (!credentials$logged_in) {
+      # Login page
+      div(class = "login-screen",
+          div(class = "login-header",
+              h2("Baseball Stats Visualization"),
+              p("Please log in with your Patreon email")
+          ),
+          textInput("email", "Email:"),
+          actionButton("login", "Login", class = "btn-primary"),
+          p(style = "margin-top: 20px; text-align: center;",
+            "Access requires Veteran or Hall of Fame tier on Patreon")
+      )
+    } else {
+      # Main application UI (your existing UI)
+      fluidPage(
+        titlePanel(NULL, windowTitle = "Baseball Stats Visualization"),
+        sidebarLayout(
+          sidebarPanel(
+            selectInput("szn", "Season:", c(2024, 2023, 2022, 2021, 2021)),
+            selectInput("level", "Level:", c("MLB", "AAA", "FSL")),
+            selectInput("type", "Player Type:", c("Batter", "Pitcher")),
+            selectInput("player", "Player:", choices = unique(temp_players$`Batter Name`)),
+            checkboxInput("use_custom_team", "Use Custom Team", FALSE),
+            conditionalPanel(
+              condition = "input.use_custom_team == true",
+              selectInput(
+                inputId = "team",
+                label = "Select Team",
+                choices = c(
+                  "MLB" = "MLB",
+                  "Angels" = "LAA",
+                  # ... rest of your teams ...
+                  "Yankees" = "NYY"
+                ),
+                selected = "MLB"
+              )
+            )
+          ),
+          mainPanel(
+            div(class = "plot-container",
+                plotOutput("statsPlot")
+            )
+          )
+        )
+      )
+    }
+  })
+  
+  # Handle login button click
+  observeEvent(input$login, {
+    # Show loading message
+    showModal(modalDialog(
+      "Checking credentials...",
+      footer = NULL
+    ))
+    
+    # Check Patreon access
+    has_access <- check_patreon_access(input$email)
+    
+    # Remove loading message
+    removeModal()
+    
+    if (has_access) {
+      credentials$logged_in <- TRUE
+    } else {
+      showModal(modalDialog(
+        title = "Access Denied",
+        "This email does not have access. Please make sure you're using the email associated with your Patreon account and you have an active Veteran or Hall of Fame tier subscription.",
+        easyClose = TRUE
+      ))
+    }
+  })
+  observe({
+    req(credentials$logged_in) 
   
   observeEvent(c(input$szn,input$level), {
     # Filter data based on selected season
@@ -375,6 +496,8 @@ server <- function(input, output,session) {
                       inputId = "player",
                       choices = unique(filtered_data$`Batter Name`))
   })
+
+    })
   # Create reactive value to store team
   team_value <- reactiveVal("MLB")
   position_value <- reactiveVal("")
@@ -442,7 +565,7 @@ server <- function(input, output,session) {
   
   output$statsPlot <- renderPlot({
     req(position_value())
-    
+    req(credentials$logged_in)
     #  showtext::showtext_begin()
     #  on.exit(showtext::showtext_end())