diff --git a/R/read_rcl.R b/R/read_rcl.R index 156d4ba0460d7f5a251486c43e1b3c8bd32de7bf..51ef5ee2d5720e35b59e37bdf9d1c268eb0f6159 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+"), - 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 |>