R/httpget_tmp.R

In jeroen/opencpu: Producing and Reproducing Results

httpget_tmp <- function(requri){
  #check if API has been enabled
  check.enabled("api.tmp");
  prefix <- "x0";

  #reqhead is pub subapi
  reqhead <- utils::head(requri, 1);
  reqtail <- utils::tail(requri, -1);

  if(!length(reqhead)){
    res$checkmethod();
    res$checktrail();
    allfiles <- list.files(ocpu_store(), pattern=paste("^", prefix, sep=""));
    res$sendlist(allfiles);
  }

  #shorthand for session::object notation
  if(grepl("::", reqhead, fixed = TRUE)){
    parts <- strsplit(reqhead, "::", fixed = TRUE)[[1]]
    reqhead <- parts[1]
    reqtail <- c("R", parts[2], reqtail)
  }

  sessionpath <- file.path(ocpu_store(), reqhead);

  #set cache value
  res$setcache("tmp");

  #retrieve tmp session
  httpget_session(sessionpath, reqtail);
}