hello.r

library(Rook)

# to install Rook, which makes it possible to run R as a server,
# R -q -e "install.packages('Rook', repos='http://cran.r-project.org')"

app <- function(env){
	req <- Rook::Request$new(env)
	res <- Rook::Response$new()
	res$write(42)
	res$finish()
}


s = Rhttpd$new()
s$add(app = app, name = "helloworld")
s$start(port=8888)

while(T){
Sys.sleep(10000)
}