footnote_code footnote_text R revised