Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

more bits...

  • Loading branch information...
commit c83dd92f27094da1837d591a6e16a43a73657313 1 parent b10e853
@dill authored
Showing with 20 additions and 9 deletions.
  1. +13 −0 DESCRIPTION
  2. +7 −9 R/rxmpp.R
View
13 DESCRIPTION
@@ -0,0 +1,13 @@
+Package: RXMPP
+Version: 0.0.1
+Date: 2011-03-1
+Title: XMPP for R (RXMPP)
+Author: David Lawrence Miller <dave@ninepointeightone.net>
+Maintainer: David Lawrence Miller <dave@ninepointeightone.net>
+Description: This library implements the XMPP instant messaging protocol
+ in R.
+
+ See the README file for installation instructions!
+Depends: R (>= 2.11.0)
+LazyLoad: yes
+License: GPL version 2 or later
View
16 R/rxmpp.R
@@ -1,16 +1,15 @@
# RXMPP
-# add something for a persistant connection?
-
# get the settings and set up the connection object
shout_settings<-function(username, password=NULL, recipient=NULL, server="talk.google.com",
test.message="This is a test of RXMPP."){
- # if the password is NULL then ask for it
- if(is.null(password)){
- cat("No password supplied.\nPassword:")
- password<-scan()
- }
+ ## this echoes the password back at the moment -- BAD
+ ## if the password is NULL then ask for it
+ #if(is.null(password)){
+ # cat("No password supplied.\nPassword:")
+ # password<-readLines(n=1)
+ #}
# create connection object
conn<-list(username=username,password=password)
@@ -30,7 +29,7 @@ shout<-function(message,recipient,conn){
# send the message using conn
dyn.load("wocky-message")
- wood_ret<-.C("rxmpp_send",
+ send_obj<-.C("rxmpp_send",
in_jid=as.character(conn$username),
in_password=as.character(conn$password),
in_recipient=as.character(recipient),
@@ -38,5 +37,4 @@ shout<-function(message,recipient,conn){
dyn.unload("wocky-message")
-
}
Please sign in to comment.
Something went wrong with that request. Please try again.