[fix]read_rclでrefereeのコマンドがteamとagentに抽出される問題の修正

R/read_rcl.R

@@ -10,7 +10,7 @@ read_rcl <- function(path) {
   tibble::as_tibble() |>
   dplyr::mutate(
     step     = value |> stringr::str_extract("\\d+"),
-    agent    = value |> stringr::str_extract("\\w+_([0-9]{1,2}|Coach)"),
+    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 |>