замена текста с условным рисунком

Question

Я импортировать файл с именами столбцов, которые имеют следующий формат:

x <- "text.text.text.text.name" 

В большинстве случаев, следующая строка хороша для удаления все до конечного периода, оставив только имя переменной Я хочу (name):

gsub(".*\\.","", x) 

Однако некоторые переменные имеют следующий формат:

y <- "text.text.text.text.name.R1" 

Я хотел бы сохранить name.R1, когда за последним периодом следует столица «R». Как мне изменить аргумент gsub, чтобы разрешить это изменение?

Answer 1

@ решения kasterma работал лучше для меня:

gsub("(.*\\.)([^R])","\\2", x) 

Answer 2

Вы можете использовать отрицательный взгляд вперед, чтобы ограничить конечный период:

gsub(".*\\.(?!R)", "", x, perl = T) 
# [1] "name" 

gsub(".*\\.(?!R)", "", y, perl = T) 
# [1] "name.R1" 

Answer 3

gsub('.*\\.(\\w+.\\w+$)','\\1',y) 
#[1] "name.R1"