R/httpget_doc.R

In jeroenooms/opencpu: Producing and Reproducing Results

httpget_doc <- function(requri){
  #set cache value as for libraries
  res$setcache("lib");

  #find doc dir
  docdir <- Sys.getenv("R_DOC_DIR", "/usr/share/R/doc")
  path <- file.path(docdir, paste(requri, collapse="/"))
  assert_subdir(path, docdir)
  httpget_file(path)
}