couchdb R chat see http://wactbprot.tumblr.com/post/5431085881/couchdb-r-chat

couchdb-r-chat

library(RJSONIO, quietly =TRUE)
goOn <- TRUE

while(goOn){

  jIn <- scan('stdin',
                '',
                n=1,
                quiet=TRUE,
                sep="\n")
  ##  4 debuging purposes one can:
  ##  save(a,file="wactbprot/a.oo", ascii=TRUE)
  ##
  
  rIn <-  fromJSON(jIn)
  ## try catch stuff needed here
  
  query  <-  rIn$query

  if(length(query$do) == 1){
    
    switch(query$do,
           this = rOut <- list(reply="this done"),
           that = rOut <- list(reply="that done")
           )
  }else{
    rOut <- list(reply="nothing done")
  }
  jOut <- gsub("\n","",toJSON(rOut))
  cat(paste("{ \"code\":200,\"json\":",jOut,"}\n" ,sep=""))
  
}