modify write_md.R