fork download
  1. 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")
  2. gsub("(\\\\index\\{(\\w+(?:\\s+\\w+){0,4})\\})","\\1\\\\textbf{\\2}", text)
  3.  
Success #stdin #stdout 0.48s 79168KB
stdin
Standard input is empty
stdout
[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"