inputs <- c(
"He's the bigest fan I know." ,
"I am a huge fan of his." ,
"I know she has lots of fans in his club" ,
"I was cold and turned on the fan" ,
"An air conditioner is better than 2 fans at cooling."
)
gsub(
"((?:s?he(?: i|')s|(?:you|they|we)(?: a|')re|I(?: a|')m).{1,20})\\ b(fan)(s?)\\ b" ,
'\\ 1\\ 2atic\\ 3' ,
inputs,
perl = TRUE, ignore.case = TRUE
)
aW5wdXRzIDwtIGMoCiAgICAiSGUncyB0aGUgYmlnZXN0IGZhbiBJIGtub3cuIiwKICAgICJJIGFtIGEgaHVnZSBmYW4gb2YgaGlzLiIsCiAgICAiSSBrbm93IHNoZSBoYXMgbG90cyBvZiBmYW5zIGluIGhpcyBjbHViIiwKICAgICJJIHdhcyBjb2xkIGFuZCB0dXJuZWQgb24gdGhlIGZhbiIsCiAgICAiQW4gYWlyIGNvbmRpdGlvbmVyIGlzIGJldHRlciB0aGFuIDIgZmFucyBhdCBjb29saW5nLiIKKQpnc3ViKAogICAgICAgICIoKD86cz9oZSg/OiBpfCcpc3woPzp5b3V8dGhleXx3ZSkoPzogYXwnKXJlfEkoPzogYXwnKW0pLnsxLDIwfSlcXGIoZmFuKShzPylcXGIiLCAKICAgICAgICAnXFwxXFwyYXRpY1xcMycsIAogICAgICAgIGlucHV0cywgCiAgICAgICAgcGVybCA9IFRSVUUsIGlnbm9yZS5jYXNlID0gVFJVRQogICAgKQ==