chat code snippets in r

create a function which sends an xmpp message of user input in r