tidy up route names

route-names.R

make_route_name <- function(x) {
  strsplit(x, ", ") |> 
    unlist() |> 
    unique() |> 
    paste(collapse = ", ")
}

routes <- c("426, 442, 450, 455, T116", "113, 99, T109, T110")

make_route_name(routes)
#> [1] "426, 442, 450, 455, T116, 113, 99, T109, T110"

Use this funciton within your dplyr mutate call.

Something like

df |> 
  group_by(col, col2) |>
  summarise(route_name = make_route_name(route_col))

worked beautifully - thank you!