R support

Author: VibhorCodecianGupta

README.md

@@ -29,5 +29,6 @@ Currently we have following images -
  - [perl](containers/perl)
  - [py2](containers/py2)
  - [py3](containers/py3)
+ - [R](containers/r)
  - [ruby](containers/ruby)
  - [rust](containers/rust)

containers/r/Dockerfile

@@ -0,0 +1,9 @@
+FROM alpine:3.6
+
+RUN apk add --no-cache R="3.3.3-r0" bash
+
+COPY ./compile.sh /bin/compile.sh
+COPY ./run.sh /bin/run.sh
+
+RUN chmod 777 /bin/compile.sh; \
+    chmod 777 /bin/run.sh

containers/r/compile.sh

@@ -0,0 +1 @@
+#!/usr/bin/env bash

containers/r/run.sh

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+Rscript script.r < run.stdin 1> run.stdout 2> run.stderr

test.sh

@@ -4,9 +4,9 @@
   bash tests/c/test_worker.sh
 }
 
-#@test "test cpp" {
-#  bash tests/cpp/test_worker.sh
-#}
+@test "test cpp" {
+ bash tests/cpp/test_worker.sh
+}
 
 @test "test csharp" {
   bash tests/csharp/test_worker.sh
@@ -40,6 +40,10 @@
   bash tests/py3/test_worker.sh
 }
 
+@test "test R" {
+  bash tests/R/test_worker.sh
+}
+
 @test "test ruby" {
   bash tests/ruby/test_worker.sh
 }

tests/r/run.stdin

@@ -0,0 +1 @@
+World

tests/r/script.r

@@ -0,0 +1,2 @@
+input <- readLines(file("stdin"))
+cat('Hello',input)

tests/r/test_worker.sh

@@ -0,0 +1,41 @@
+#!/usr/bin/env bash
+pushd $(dirname "$0")
+DIR=$(pwd)
+RUNBOX="${DIR}/runbox"
+
+echo $RUNBOX
+# Remove RUNBOX
+rm -rf $RUNBOX
+
+# Create runbox
+mkdir -p $RUNBOX
+
+# Copy source to runbox
+cp -fv $DIR/script.r $RUNBOX/script.r
+cp -fv $DIR/run.stdin $RUNBOX/run.stdin
+
+# Test Compile
+docker run \
+    --cpus="1" \
+    --memory="100m" \
+    --ulimit nofile=64:64 \
+    --rm \
+    --read-only \
+    -v "$RUNBOX":/usr/src/runbox \
+    -v "$RUNBOX":/tmp \
+    -w /usr/src/runbox r \
+    bash -c "/bin/compile.sh && /bin/run.sh"
+
+ls -lh ${RUNBOX}
+
+expected="Hello World"
+actual="$(cat ${RUNBOX}/run.stdout)"
+if [ "$expected" == "$actual" ] ;then
+    :
+else
+    echo "MISMATCH: Expected = $expected; Actual = $actual"
+    exit 1
+fi
+
+# Delete runbox
+rm -rf $RUNBOX