R/httpget_static.R

In jeroen/opencpu: Producing and Reproducing Results

httpget_testapp <- function(requri){
  #only GET
  res$checkmethod()

  #set cache value
  res$setcache("static")

  # Prevent path traversal attack via ..%2F..%2F..%2F
  testapp <- system.file('test', package = 'opencpu')
  path <- do.call(file.path, as.list(c(testapp, requri)))
  assert_subdir(path, testapp)
  res$sendfile(path)
}