Стандартизация данных телефонного номера

Question

Я ищу более элегантное решение для этого:

phone_number <- function(x) {
x <- gsub("[\\() -]", "", x) 
x <- gsub("^(.{3})(.{3})(.*)","\\1-\\2-\\3", x, perl = TRUE)
}

Это будет принимать данные, такие как:

(123) 123-1234
123-123-1234
123 123-1234

И произвести это:

123-123-1234
123-123-1234
123-123-1234

Answer 1

Мы могли бы сделать

gsub(".*(\\d{3}).*(\\d{3}).*(\\d+).*?", "\\1-\\2-\\3", x)
# [1] "123-123-1234" "123-123-1234" "123-123-1234"

при условии, что у нас есть только три группы цифр где-то в символе, и это то, что нам нужно.