diff --git a/R/make_data.R b/R/make_data.R index 47cb3878593a42d2b50a0ec9654d8cecb8c0bf58..d6c8967f72642dacc6232efd8643490e3a5a5ecc 100755 --- a/R/make_data.R +++ b/R/make_data.R @@ -185,7 +185,7 @@ get_pass <- function(kick) { 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)) + dplyr::select(step,team,numu,px,py,pvx,pvy,ball_x,ball_y,ball_vx,ball_vy,next_ball_x,next_ball_y,next_ball_vx,next_ball_vy,pass,pass_scc) return(output) }