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

library(xmpp)
client <- function(jid, pwd) {

   # create connection
   conn <- jabber(jid, pwd, verbose = FALSE)

   # function to send xmpp message
   send_message <- function(to, message) {
      msg <- message(type = "chat", to = to, body = message)
      send(conn, msg)
   }

   # return the send_message function
   return(send_message)
}
346 chars
16 lines

# create client with jabber ID and password
my_client <- client("my_jabber_id@jabber.org", "my_password")

# use the send_message function to send a message
my_client("recipient_jabber_id@jabber.org", "Hello, world!")
218 chars
6 lines