Push R images to flickr with links to script code on github, and tweet the results and save the data using the flickr id.

example.R

#####  socialR header info ##### 
require(socialR)
script <- "example.R" # Must specify the script name! 
gitcommit(script)     # Must commmit at start!

##### Optional but a good idea ##### 
#almost requisite, if not me running "repo"/"dir"
gitopts = list(user = "cboettig", dir = "demo", repo = "socialR") 
on.exit(system("git push")) #  For git links.  May prompt for pw,
tags <- "test"  ## multiple possible: space, delim, multiple items, etc.  
tweet_errors(script, gitopts, tags)  ## tweet on error

# code code code .....

# we save some plots ....
png("test.png")
  hist(rnorm(100))
dev.off()


# and here's the call to upload, link, save data, and tweet. 
# first entry can be a space-delim list of images "image1.png image2.png"
upload("test.png", script=script, gitopts=gitopts, tags="test", tweet=T)