Replacing Substrings with Negations Only When Distance Between Words is Within Threshold Using R's `stringr` Package