inst/examples/fibonacci-numbers-rcpp/app.R

In rexyai/RestRserve: A Framework for Building HTTP API

#!/usr/bin/env Rscript

## ---- load packages ----

library(RestRserve)
library(Rcpp)


## ---- Functions ----

# function to calc Fibonacci numbers
# use double to avoid int overflow
cppFunction('
double calc_fib_cpp(const int n) {
  if (n < 1) return(0);
  double old = 0;
  double cur = 1;
  double hold;
  for (int i = 1; i < n; ++i) {
    hold = cur;
    cur += old;
    old = hold;
  }
  return cur;
}')


## ---- create handler for the HTTP requests ----

fib_handler = function(request, response) {
  n = as.integer(request$parameters_query[["n"]])
  if (length(n) == 0L || is.na(n)) {
    raise(HTTPError$bad_request())
  }
  response$body = as.character(calc_fib_cpp(n))
}


## ---- create application -----

app = Application$new(
  content_type = "text/plain"
)


## ---- register endpoints and corresponding R handlers ----

app$add_get(
  path = "/fib",
  FUN = fib_handler
)


## ---- start application ----
backend = BackendRserve$new()
# backend$start(app, http_port = 8080)