Update app.R

app.R

@@ -287,6 +287,7 @@ of_oaa_setup <- function(data) {
   d <- cbind(d, catch_prob = probs)
   
   d %>% mutate(
+    obs_player = str_replace_all(obs_player, "(\\w+), (\\w+)", "\\2 \\1"),
     catch_prob = 1 - catch_prob,
     pred_catch = ifelse(catch_prob >= .5, 1, 0),
     OAA = (as.numeric(success_ind) - 1) - catch_prob) %>%
@@ -351,15 +352,17 @@ if_oaa_setup <- function(data) {
     filter(!is.na(obs_player))
   
   # For IF model, success_ind needs to be factor
-  d <- d %>% mutate(success_ind = as.factor(success_ind))
   
   processed <- bake(IF_OAA_recipe, new_data = d) %>%
     dplyr::select(-any_of("success_ind")) %>%
     mutate(across(where(is.factor), as.numeric), across(where(is.character), as.numeric))
+  
   dmat <- xgb.DMatrix(data = as.matrix(processed))
   probs <- predict(IF_OAA_model, dmat)
+  
   d <- cbind(d, play_prob = probs)
   d %>% mutate(
+    obs_player_name = str_replace_all(obs_player_name, "(\\w+), (\\w+)", "\\2 \\1"),
     play_prob = 1 - play_prob,
     play_pred = ifelse(play_prob >= .5, 1, 0),
     OAA = (as.numeric(success_ind) - 1) - play_prob) %>%
@@ -519,7 +522,7 @@ field_graph <- function(player, position, oaa_df) {
 
 # -- OF direction OAA --
 direction_oaa <- function(player, position, oaa_data) {
-  dir_levels <- c("Back Right","Back","Back Left","Left","In Left","In","In Right","Right")
+  dir_levels <- c("Right", "Back Right","Back","Back Left","Left","In Left","In","In Right")
   if (position %in% c("RF","CF","LF")) {
     pd <- oaa_data %>% filter(obs_player == player, hit_location == position)
   } else {