Инвертировать список пар (ключ, значение)

Я хочу преобразовать именованный список пар (key,values) в именованный список пар (value,key). Можно с уверенностью предположить, что значения уникальны для ключей, но векторы имеют разную длину.

Я придумал решение, в котором используется purrr::map, а затем purrr::flatten.

Есть ли более элегантное решение?

library("tidyverse")

key_values_list <- list(
  a = c("x", "y"),
  b = c("A", "B", "C")
)

myinvert <- function(key, values) {
  setNames(rep_along(values, key), values)
}

value_key_pairs <-
  names(key_values_list) %>%
  map(
    ~ myinvert(., key_values_list[[.]])
  ) %>%
  flatten()
value_key_pairs
#> $x
#> [1] "a"
#> 
#> $y
#> [1] "a"
#> 
#> $A
#> [1] "b"
#> 
#> $B
#> [1] "b"
#> 
#> $C
#> [1] "b"

^{Created on 2022-03-16 by the reprex package (v2.0.1)}