R - преобразовать 2-й вектор в 1-й именованный вектор

Question

Как это можно сделать более элегантно? Я хочу преобразовать вектор пар ключ-значение в виде сцепленных строк в вектор значений с ключами в качестве имен.

library(tidyverse)
library(purrr)

x <- c("key1|value1", "key2|value2")

# Current way
x_split <- x %>% str_split("\\|")
keys <- x_split %>% map(pluck(1)) %>% unlist()
values <- x_split %>% map(pluck(2)) %>% unlist()

y <- values %>% set_names(keys)

# More elegant way
y <- x %>% some_functions()

Answer 1

Мне всегда нравилось data.table::tstrsplit.

library(data.table)
tstrsplit(x,"\\|") %>% {setNames(.[[2]],.[[1]])}
#    key1     key2 
#"value1" "value2"

Answer 2

Вы можете использовать simplify = TRUE в str_split и использовать set_names.

stringr::str_split(x, "\\|", simplify = TRUE) %>% {purrr::set_names(.[, 2], .[, 1])}

#    key1     key2 
#"value1" "value2"