highlight %%R cells with R highlighter