test markdown with r code