How to combine two TDMs for a comparison.cloud

Question

I have two TDMs which I would like to make a comparison wordcloud from:

TrumpBase <- data.frame(doc_id=row.names(TrumpBase),
                       text=Tr