refine === completion in r markdown