Skip to content

Instantly share code, notes, and snippets.

@riywo

riywo/sample.r

Created February 16, 2011 16:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save riywo/829619 to your computer and use it in GitHub Desktop.
Save riywo/829619 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sample.r
source('Rworker.r')
file <- rworker_download(args$data)
rworker_log(paste("Download finished:", file))
d <- read.csv(file, header = T)
rworker_log("read.csv finished:")
png(args$img)
plot(d)
null <- dev.off()
rworker_log(paste("plot finished:", args$img))
status <- rworker_upload(args$upload_url, args$upload_key, args$img)
rworker_log(paste("upload finished:", status, args$upload_url, args$upload_key, args$img))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment