r - 编写一个函数以返回电话号码中的第 n 组数字

Question

例如，函数应该是：function_name(phonenumber, n)

• function_name(123-456-7890, 1)应该返回 123
• function_name((123)-456-7890, 3)应该返回 7890

标签： r

Answer 1

function_name <- function(phone, n) Filter(nzchar, strsplit(phone, "\\D+")[[1]])[n]
function_name("123-456-7890", 1)
# [1] "123"
function_name("(123)-456-7890", 3)
# [1] "7890"