text <- c("blah blah \\index{words}words ramble on", "more blah more blah\\index{space words} space words ramble on","final blah\\textbf{bold words} ramble on")gsub("(\\\\index\\{(\\w+(?:\\s+\\w+){0,4})\\})","\\1\\\\textbf{\\2}", text)
Standard input is empty
[1] "blah blah \\index{words}\\textbf{words}words ramble on" [2] "more blah more blah\\index{space words}\\textbf{space words} space words ramble on" [3] "final blah\\textbf{bold words} ramble on"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!