Это должно сделать.
library(stringr)
x <- "yada yada.useful text here. googletag.cmd.push(function() { googletag.display('div-gpt-ad-447281037690072557-2'); });useful text here. yada yada"
x %>% str_remove("googletag.*\\}\\)")
Объяснение
Регулярное выражение ищет "googletag" (там, где начинается ваша нежелательная строка)
. * означает любое количество символов
\\} \\) до тех пор, пока мы не найдем})
двойная обратная косая черта - это "сленг R", для других регулярных выражений в основном используется только одна обратная косая черта sh.