Merge branch 'vaep' into 'develop'

organize branches

See merge request !4

.gitignore

@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+.DS_Store
\ No newline at end of file

R/output_spadl.R

+library(tidyverse)
+source("R/read_rcg.R")
+source("R/read_rcl.R")
+source("R/rcg_convert.R")
+source("R/rcl_convert.R")
+
+rcg <- read_rcg("data/20220405162804-HELIOS_base_3-vs-enemy_2.rcg")
+rcl <- read_rcl("data/20220405162804-HELIOS_base_3-vs-enemy_2.rcl")
+
+ball <- get_ball(rcg)
+agent <- get_agent_pos(rcg)
+command <- get_command(rcl)

R/rcg_convert.R

+get_ball <- function(rcg) {
+  ball <- rcg |>
+    dplyr::select(
+      step, 
+      ball_x, 
+      ball_y, 
+      ball_vx, 
+      ball_vy,
+    ) |>
+    dplyr::distinct(step, .keep_all = T)
+  return(ball)
+}
+
+get_agent <- function(rcg) {
+  agent <- rcg |>
+    dplyr::select(
+      step,
+      side,
+      unum,
+      type,
+      x,
+      y,
+    )
+  return(agent)
+}

R/rcl_convert.R

+get_command <- function(rcl) {
+  command <- rcl |>
+    dplyr::filter(command == "kick"| command == "tackle" | command == "referee") |>
+    dplyr::select(
+      step,
+      team,
+      unum,
+      command,
+      args,
+    ) 
+    return(command)
+}
+
+classify_actions <- function(command) {
+  action <- command |>
+    dplyr::mutate(
+      
+    )
+  return(action)
+}
+
+classify_pass <- function(command) {
+  action <- command |>
+    
+  return(action)
+}
\ No newline at end of file

R/test.R

+library(tidyverse)
+source("R/read_rcl.R")
+rcl <- read_rcl("data/test.rcl")

data/test.rcl

+Recv HELIOS_base_Coach: (init HELIOS_base (version 14))
+0,239	Recv HELIOS_base_5: (turn 0)(turn_neck 0)(done)
+0,239	(referee kick_off_l)
+0,239	Recv HELIOS_base_Coach: (done)
+27,0	Recv HELIOS_base_11: (kick 100 9.12788)(turn_neck 56)(attentionto our 6)(done)
+4054,0	(referee goal_l_1)
+4764,0	(referee yellow_card_r_6)
\ No newline at end of file