Check which versions of R touch the while() loop in get_source_expressions()

Check which versions of R touch the while() loop in get_source_expressions() #6010