add: foulの検出

R/detect_foul.R

+detect_foul <- function(path) {
+  rcl <- path |> readr::read_lines()
+
+  foul_actions <- c()
+
+  count <- 1
+
+  for (i in rcl) {
+    str <- stringr::str_extract(i, "foul_\\w+_(l|r)")
+    if (!is.na(str)) {
+      foul_actions <- c(foul_actions, rcl[count - 1])
+    }
+    count <- count + 1
+  }
+
+  foul_actions <- foul_actions |>
+    tibble::as_tibble() |>
+    dplyr::mutate(
+      step = value |> stringr::str_extract("\\d+") |> as.numeric(),
+      agent = value |> stringr::str_extract("\\w+_([0-9]{1,2}|Coach)"),
+      team = agent |> stringr::str_remove("_([0-9]{1,2}|Coach)"),
+      unum = agent |> stringr::str_extract("([0-9]{1,2}|Coach)$"),
+      commands = value |>
+        stringr::str_extract("\\(.+\\)$") |>
+        purrr::map(~ .x |>
+          stringr::str_split("\\(|\\)", simplify = TRUE) |>
+          stringr::str_trim() |>
+          purrr::discard(~ .x == "")),
+    ) |>
+    tidyr::unnest(commands) |>
+    dplyr::mutate(
+      commands = commands |> stringr::str_split("\\ ", n = 2),
+      command  = commands |> purrr::map_chr(1),
+      args     = commands |> purrr::map(~ .x[-1]),
+    ) |>
+    dplyr::select(
+      step,
+      team,
+      unum,
+      command,
+      args,
+      # line = value,
+    ) |>
+    dplyr::filter(command == "tackle")
+
+  return(foul_actions)
+}