Как использовать sQuote только в столбцах, содержащих в качестве имени столбца указанную строку

Question

Я пытаюсь добавить одинарные кавычки к значению в кадре данных в первом ряду столбцов, содержащих в своем имени строку интенсивность .

Изменение:

A     B     C    IntensityA ssIntensityB

asa   adf   df   123      183
as    sd    sd   121      41

до:

A     B     C    IntensityA ssIntensityB

asa   adf   df   '123'      '183'
as    sd    sd   121        41

Я пробовал следующее:

int_col <- grep("intensity", colnames(tab), value=TRUE, invert=FALSE)
int_c <- colnames(tab) %in% int_col
q <- sQuote(subset(Access.protein.input,int_c))

Спасибо за любые советы.