clean a little

.circleci/config.yml

@@ -44,9 +44,10 @@ jobs:
               fx up examples/functions/func.go >> deploy.log
               fx up examples/functions/func.php >> deploy.log
               fx up examples/functions/func.jl >> deploy.log
+              fx up examples/functions/func.R >> deploy.log
               cat server_output.log
               cat deploy.log;
-              cat deploy.log | grep 'Succed: 1' | wc -l | grep 6
+              cat deploy.log | grep 'Succed: 1' | wc -l | grep 7
 
 deployment:
     production:

images/R/Dockerfile

@@ -0,0 +1,9 @@
+FROM r-base
+
+COPY . /usr/local/src/fx
+WORKDIR /usr/local/src/fx
+RUN R -f packages.R
+
+EXPOSE 3000
+
+CMD ["Rscript", "app.R"]

images/R/app.R

@@ -0,0 +1,11 @@
+library(jug)
+library(jsonlite)
+source('./fx.R')
+
+jug() %>%
+    post("/", function(req, res, err) {
+             input <- fromJSON(req$body)
+             fx(input)
+    }) %>%
+    simple_error_handler_json() %>%
+    serve_it(port = 3000)

images/R/fx.R

@@ -0,0 +1,3 @@
+fx <- function(input) {
+    return (strtoi(input$a) + strtoi(input$b))
+}

images/R/packages.R

@@ -0,0 +1 @@
+install.packages(c("jug", "jsonlite"), repos="http://cran.us.r-project.org", dependencies=TRUE)