R/increment.curlcount.R

In jeroenooms/Ohmage: R Client for Ohmage 2 server

increment.curlcount <- function(){
	mycount <- getOption("CURLCOUNT");
	if(mycount < 1000){
		options(CURLCOUNT = mycount + 1);
	} else {
		message("Reached 1000 curl requests. Renewing curl handler!")
		renewCurl();
	}
}