Удаление символов после символа ЕВРО в R

Вы можете использовать переменные в шаблоне, просто объединяя строки с помощью вставить0:

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)

См. демонстрацию CodingGround.

Обратите внимание, что с помощью gsub("([^A-Za-z_0-9])", "\\\\\\1", euro) я избегаю любых символов, отличных от слов, чтобы $ можно было рассматривать как литерал, а не как специальный метасимвол регулярного выражения (взято из это сообщение SO).

Используйте регулярные совпадения, присутствующие в базе r или str_extarct в stringr и т. д.

> 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"

или

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

или

Использование переменных.

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

Если этот ответ с использованием переменных не сработает для вас, вам нужно установить кодировку,

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

Источник