get_kick_point.R

get_kick_point <- function(log_data) {
  output <- log_data |> 
  dplyr::filter(command=="kick") |>
  dplyr::mutate(
    x = args |> stringr::str_extract("[0-9\\-\\.]+"),
    l1 = args |> stringr::str_remove(x),
    y = l1 |> stringr::str_extract("[0-9\\-\\.]+"),

  ) |>
  dplyr::select(
    step,
    team,
    unum,
    command,
    x,
    y,
  )
  
  return(output)
}