R: извлечение символов вокруг запятой из вектора символов

Question

Давайте иметь вектор символов с одной запятой внутри:

vector <- c("abcdefghi,jklmnopr")

Как получить вектор с символами вокруг запятой?

# expecter outcome
# "i,j"

А как это сделать для вектора с несколькими запятыми внутри?

vector <- c("ab,cdefghi,jklm,nopr")
# expecter outcome
# "b,c", "i,j", "m,n"

Answer 1

Использование пакета stringr:

stringr::str_extract_all(vector, ".,.")
# [[1]]
# [1] "b,c" "i,j" "m,n"