Update app.R

app.R

@@ -950,62 +950,57 @@ server <- function(input, output, session) {
   # ============================================================
   # POPULATE OF PLAYER DROPDOWN
   # ============================================================
-  observe({
-    req(authed())                
-    req(input$of_year_select)       
-    req(input$of_position) 
-    d <- of_data()
-    pos <- input$of_position
-    if (pos %in% c("LF","CF","RF")) {
-      players <- sort(unique(d$obs_player[d$hit_location == pos]))
-    } else {
-      players <- sort(unique(d$obs_player))
-    }
-    updateSelectInput(session, "of_player", choices = players,
-                      selected = if (length(players) > 0) players[1] else NULL)
-  })
+  observeEvent(list(authed(), input$of_year_select, input$of_position), {
+      req(isTRUE(authed()), input$of_year_select, input$of_position)
+      d <- of_data()
+      pos <- input$of_position
+      if (pos %in% c("LF","CF","RF")) {
+        players <- sort(unique(d$obs_player[d$hit_location == pos]))
+      } else {
+        players <- sort(unique(d$obs_player))
+      }
+      updateSelectInput(session, "of_player", choices = players,
+                        selected = if (length(players) > 0) players[1] else NULL)
+  }, ignoreInit = TRUE)
   
   # ============================================================
   # POPULATE IF PLAYER DROPDOWN
   # ============================================================
-  observe({
-    req(authed())                    
-    req(input$if_year_select)        
-    req(input$if_position)
-    d <- if_data()
-    pos <- input$if_position
-    if (pos %in% c("SS","2B","3B","1B")) {
-      players <- sort(unique(d$obs_player_name[d$obs_player == pos]))
-    } else {
-      players <- sort(unique(d$obs_player_name))
-    }
-    updateSelectInput(session, "if_player", choices = players,
-                      selected = if (length(players) > 0) players[1] else NULL)
-  })
+  observeEvent(list(authed(), input$if_year_select, input$if_position), {
+      req(isTRUE(authed()), input$if_year_select, input$if_position)
+      d <- if_data()
+      pos <- input$if_position
+      if (pos %in% c("SS","2B","3B","1B")) {
+        players <- sort(unique(d$obs_player_name[d$obs_player == pos]))
+      } else {
+        players <- sort(unique(d$obs_player_name))
+      }
+      updateSelectInput(session, "if_player", choices = players,
+                        selected = if (length(players) > 0) players[1] else NULL)
+  }, ignoreInit = TRUE)
   
   # ============================================================
   # POPULATE DEFENSIVE POSITIONING DROPDOWNS
   # ============================================================
-  observe({
-    req(authed())
-    teams <- sort(unique(def_pos_data$PitcherTeam))
-    updateSelectInput(session, "dp_team", choices = teams,
-                      selected = if ("CCU_CHN" %in% teams) "CCU_CHN" else teams[1])
-  })
+  observeEvent(authed(), {
+      req(isTRUE(authed()))
+      teams <- sort(unique(def_pos_data$PitcherTeam))
+      updateSelectInput(session, "dp_team", choices = teams,
+                        selected = if ("CCU_CHN" %in% teams) "CCU_CHN" else teams[1])
+  }, ignoreInit = TRUE)
   
-  observe({
-    req(authed())
-    req(input$dp_team)
-    td <- def_pos_data %>% filter(PitcherTeam == input$dp_team)
-    pitchers <- sort(unique(td$Pitcher))
-    batters <- sort(unique(td$Batter))
-    opponents <- sort(unique(td$BatterTeam))
-    counts <- sort(unique(td$pitch_count))
-    updateSelectInput(session, "dp_pitcher", choices = c("No Filter", pitchers))
-    updateSelectInput(session, "dp_hitter", choices = c("No Filter", batters))
-    updateSelectInput(session, "dp_opponent", choices = c("No Filter", opponents))
-    updateSelectInput(session, "dp_count", choices = c("No Filter", counts))
-  })
+  observeEvent(list(authed(), input$dp_team), {
+      req(isTRUE(authed()), input$dp_team)
+      td <- def_pos_data %>% filter(PitcherTeam == input$dp_team)
+      pitchers <- sort(unique(td$Pitcher))
+      batters <- sort(unique(td$Batter))
+      opponents <- sort(unique(td$BatterTeam))
+      counts <- sort(unique(td$pitch_count))
+      updateSelectInput(session, "dp_pitcher", choices = c("No Filter", pitchers))
+      updateSelectInput(session, "dp_hitter", choices = c("No Filter", batters))
+      updateSelectInput(session, "dp_opponent", choices = c("No Filter", opponents))
+      updateSelectInput(session, "dp_count", choices = c("No Filter", counts))
+  }, ignoreInit = TRUE)
   
   # ============================================================
   # OUTFIELD OAA OUTPUTS