CODEWITHSUNDEEP
regexrgsubstringr
Shivpe_R
Shivpe_R

Reputation: 1080

Removing characters after a EURO symbol in R

I have a euro symbol saved in "euro" variable:

euro <- "\u20AC"
euro
#[1] "€"

And "eurosearch" variable contains "services as defined in this SOW at a price of € 15,896.80 (if executed fro" .

eurosearch
[1] "services as defined in this SOW at a price of € 15,896.80 (if executed fro"

I want the characters after the Euro symbol which is "15,896.80 (if executed fro" I am using this code:

gsub("^.*[euro]","",eurosearch)

But I'm getting empty result. How can I obtain the expected output?

Upvotes: 2

Views: 3103

Answers (2)

Avinash Raj
Avinash Raj

Reputation: 174756

Use regmatches present in base r or str_extarct in stringr, etc

> x <- "services as defined in this SOW at a price of € 15,896.80 (if executed fro"
> regmatches(x, regexpr("(?<=€ )\\S+", x, perl=T))
[1] "15,896.80"

or

> gsub("€ (\\S+)|.", "\\1", x)
[1] "15,896.80"

or

Using variables.

euro <- "\u20AC"
gsub(paste(euro , "(\\S+)|."), "\\1", x)

If this answer of using variables won't work for you then you need to set the encoding,

gsub(paste(euro , "(\\S+)|."), "\\1", `Encoding<-`(x, "UTF8"))

Source

Upvotes: 4

Wiktor Stribiżew
Wiktor Stribiżew

Reputation: 627020

You can use variables in the pattern by just concatenating strings using paste0:

euro <- "€"
eurosearch <- "services as defined in this SOW at a price of € 15,896.80 (if executed fro"
sub(paste0("^.*", gsub("([^A-Za-z_0-9])", "\\\\\\1", euro), "\\s*(\\S+).*"), "\\1", eurosearch)

euro <- "$"
eurosearch <- "services as defined in this SOW at a price of $ 25,196.4 (if executed fro"
sub(paste0("^.*", gsub("([^A-Za-z_0-9])", "\\\\\\1", euro), "\\s*(\\S+).*"), "\\1", eurosearch)

See CodingGround demo

Note that with gsub("([^A-Za-z_0-9])", "\\\\\\1", euro) I am escaping any non-word symbols so that $ could be treated as a literal, not a special regex metacharacter (taken from this SO post).

Upvotes: 1

Related Questions