rcg_covert.R

#' Read RCG file
#' 
#' @param path RCG file path
#' @return Parsed tibble of RCG file in \code{path}
#' @examples 
#' read_rcg("data/20220405162804-HELIOS_base_3-vs-enemy_2.rcg")

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_pos <- function(rcg) {
  agent_pos <- rcg |>
    dplyr::select(
      step,
      side,
      unum,
      type,
      x,
      y,
    )
  return(agent_pos)
}