[fix]get_pass_Allplayerでいらないカラム削除

R/make_data.R

@@ -167,7 +167,7 @@ get_action_Allplayer <- function(players, action) {
 
 get_pass_Allplayer <- function(players, pass) {
     pass <- pass %>%
-        dplyr::select(step, ax, ay, pass_team = team, ball_x, ball_y, ball_vx, ball_vy, pass_scc)
+        dplyr::select(step, px, py, pass_team = team, ball_x, ball_y, ball_vx, ball_vy, pass_scc)
     output <- players %>%
         dplyr::inner_join(pass, by = "step")
     return(output)
@@ -182,8 +182,8 @@ get_dribble_Allplayer <- function(players, dribble) {
 }
 
 get_pass <- function(kick) {
-    output <- kick %>%
-        dplyr::filter(pass) %>%
+    output <- kick |>
+        dplyr::filter(pass == TRUE) %>%
         distinct(step, .keep_all = TRUE) %>%
         select(-c(a_tackle_scc, tackle_scc, pass, a_sameteam, a_sameunum, next_team, next_unum))