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?
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"))
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)
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 ).
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.