R中地址的正则表达式

Question

I want to take the matching piece that starts with CALLE or CARRERA and ends in the last number found. I can't figure out this regex:

input1: CALLE 15 # 21-32 APARTAMENTO SEGUNDO PISO

output1: CALLE 15 # 21-32

input 2: THIS STRING WON'T MATCH

output 2: THIS STRING WON'T MATCH

And then replace the vector with the matched substring. But if no substring is matched, then leave the original string as it was.

This is what I've tried:

df$DirRes2 <- regmatches(df$DirRes2, regexpr("(CALLE.*\\d | CARRERA.*\\d | .*)", df$DirRes2))

Answer 1

We can do either with base R

sub(".*((?i)(CALLE|CARRERA).*[0-9])[^0-9]+$", "\\1", str1, perl = TRUE)
#[1] "CALLE 15 # 21-32"        "THIS STRING WON'T MATCH" "Calle 25"            

Or using str_extract

library(stringr)
v1 <- trimws(str_extract(str1, "(?i)(CALLE|CARRERA)\\s*[0-9]+\\s*#*\\s*[0-9-]*"))
ifelse(is.na(v1), str1, v1)
#[1] "CALLE 15 # 21-32"        "THIS STRING WON'T MATCH" "Calle 25"     

Update

Based on the new pattern provided by the OP in the comments, @Jota's modified version works

sub(".*?((?:CALLE|CARRERA).*\\d).*$", "\\1", str2, perl = TRUE, ignore.case = TRUE) 
#[1] "CALLE 15 # 21-32"        "THIS STRING WON'T MATCH" "Calle 25"  
#[4] "CALLE 18 CARRERA 7" 

data

str1 <- c("CALLE 15 # 21-32 APARTAMENTO SEGUNDO PISO", 
                 "THIS STRING WON'T MATCH", "Calle 25 Something")

str2 <- c(str1,  "CALLE 18 CARRERA 7 CONDOMINIO BELLO")