run-r handler for Hook.io R runtime.

run-r

#!/usr/bin/env r
#
# run-r handler for Hook.io R runtime.
#
# Copyright (C) 2016 Noah Marconi
#
# Released under MIT

doc <- "Usage: run-r [-c CODE] [-e ENVIRONMENT] [-s SERVICE]

-c CODE        R code to evaluate.
-e ENVIRONMENT  ?
-s SERVICE      ?"

if (is.null(argv) | length(argv)<1) {
  cat(doc, "\n")
  q()
}

arg_flags_idx <- grep("^-", argv)
arg_vals_idx  <- arg_flags_idx+1

opts <- as.list(argv[arg_vals_idx])
names(opts) <- argv[arg_flags_idx]


RAppArmor::eval.secure(parse(text=opts$`-c`))