echo some codes in r chunk