rcl_convert.R

get_kick <- function(rcl) {
  kick <- rcl |>
    dplyr::filter(command == "kick") |>
    dplyr::select(
      step,
      team,
      unum,
      command,
    )
  return(kick)
}

get_command <- function(rcl) {
  kick <- rcl |>
    dplyr::filter(command == "kick"| command == "tackle" | command == "referee") |>
    dplyr::select(
      step,
      team,
      unum,
      command,
      args,
    ) 
    return(kick)
}

#classify_kick <- function(kick) {
#  command <- kick |>
#    dplyr::mutate(
#      action <- if(kick$team)
#    )
#  return(command)
#}
  
get_tackle <- function(rcl) {
  tackle <- rcl |> 
    dplyr::filter(command == "tackle")
  return(tackle)
}