diff --git a/R/read_rcl.R b/R/read_rcl.R index 4aa356a54fcf6f42ec588fcc254e421222290050..ab421031a125a424578065f1b09c244f83c35158 100644 --- a/R/read_rcl.R +++ b/R/read_rcl.R @@ -10,7 +10,7 @@ read_rcl <- function(path) { tibble::as_tibble() |> dplyr::mutate( step = value |> stringr::str_extract("\\d+") |> as.numeric(), - 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 |>