How do i retain my unique identifiers when doing a clean and stem using tm package in R?

Question

#to prepare for dataframesource you must change name to doc_id and text.
textdataframe <- textdataframe %>% rename(doc_id= orig_id, text= orig.narr)

corpus=Corpus