[fix] dplでパスしたチームと成否が分かるようにした

R/make_data.R

@@ -295,7 +295,12 @@ get_AttackLine <- function(data){
     output <- data  %>%
         dplyr::group_by(step) %>% 
         filter(px == max(px)) %>% 
-        dplyr::select(step,AL=px)
+        dplyr::select(
+          step,
+          pass_team,
+          pass_scc,
+          AL=px
+          )
     return(output)
 }