[fix]get_action_Allplayerの追加

R/make_data.R

@@ -91,6 +91,14 @@ get_kick <- function(action) {
     return(output)
 }
 
+get_action_Allplayer <- function(players,action){
+    players <- players  %>% 
+        dplyr::select(-c("px","py"))
+    output <- players  %>% 
+        dplyr::inner_join(action,by = "step")
+    return(output)
+}
+
 get_pass <- function(kick) {
     output <- kick %>%
         dplyr::mutate(pass_scc = (a_sameteam & !a_sameunum)) %>%