Pattern регулярного выражения для gsub()

[nickleb]

Здравствуйте. Кто силён в регулярных выражениях и сможет помочь?
Мне надо в нижеследующей строке:

"year day pressure(dbar) temperatur[e(C) salinity oxygen(umol/kg) turbidity(10e-4/m s/r) chlorophyll(ug/l) cdom(ppb) par(umol photon/m^2/s)"

все символы, заключённое в круглые скобки, заменить на "пусто" .

[trir]

\([^\n\t\r\f\)]+\)

[nickleb]

\([^\n\t\r\f\)]+\)

trir, спасибо - но что-то у меня "с ходу" не прошло, поэтому решил "длинно", не изящно, "в лоб", но - наверняка в моём случае:

Код: Выделить всё

#Библиотека...
library(qdapRegex)

#Строка, в ктр. надо заменить...
StringForGSUB <- "year day pressure(dbar) temperatur[e(C) salinity oxygen(umol/kg) turbidity(10e-4/m s/r) chlorophyll(ug/l) cdom(ppb) par(umol photon/m^2/s)"

#Набор "pattern"'ов...
GsubPatterns <- c("\\%", "\\(", "\\)" , "\\/", "\\^", "m sr", "umol phot", "dbar", "C",
                  "umolkg", "10e-4", "ugl", "ppb", "onm2s")

#Сама замена... 
for (j in 1:length(GsubPatterns)) {
  StringForGSUB <- gsub(GsubPatterns[j], "" , StringForGSUB)
}

print(StringForGSUB)