R语言node.js通信--实战

项目源代码
https://github.com/harryluo163/rio-node-examples

这个一个node.js 通过Rserve 实现node.js与R的互通的例子 包含使用R语法调用和直接调用文件两种 本来是直接在web页面展示数据 现在大家直接切换到Cd C:\项目\R语言\examples 到这个目录中 然后使用命令 node t1 node t2 node t3 调用 后续在加吧。

另外需要1.安装R语言 2.安装Rserve 3.启动R服务端 同样支持远程调用
具体过程看上一篇
首先看t1.js

var rio = require("rio");rio.enableDebug(true);//开启调试模式rio.e({    command: "rnorm(20)",    host : "127.0.0.1",//服务器IP地址    port : 6311,});

执行

node t1

t1 是通过Rserves 调取本地127.0.0.1 端口6311的R语言服务

t2是调取本地的R文件

var rio = require("rio");var path = require("path");var r_file_command =  path.join(__dirname, "../routes/dump/uniqueSort.R");var args = {"test": [1,4,4,1,1,0,0,1,1,1,1,0,1,0,2,0,1,1,2,0,0,3,2]};function displayResponse(err, res) {    if (!err) {        res = JSON.parse(res);        console.log("result is " + res.test);    } else {        console.log("Optimization failed");    }}//rio.enableDebug(true);//开启调试模式rio.e({    filename: r_file_command,//加载R源    entrypoint: "uniqueSort",//R中的函数    data: args,//Nodejs传入R的参数    callback: displayResponse});

R文件

require(RJSONIO)uniqueSort <- function(test){  test <- fromJSON(test)  test <- unlist(test$test)  test <- unique(test)  test <- sort(test)  res <- list(test=test)  toJSON(res)}# args <- '{"test":[1,4,4,1,1,0,0,1,1,1,1,0,1,0,2,0,1,1,2,0,0,3,2]}'# res <- uniqueSort(args)# fromJSON(res)$test

然后其他T3 T4

var rio = require("rio");rio.e({command: "pi / 2 * 2"});rio.e({command: "c(1, 2)"});rio.e({command: "as.character('Hello World')"});rio.e({command: "c('a', 'b')"});rio.e({command: "Sys.sleep(5); 11"})

var rio = require("rio");var path = require("path");function displayResponse(err, res) {    if (!err) {        res = JSON.parse(res);        console.log(unescape(res.hello)); // Hello 'world'!    } else {        console.log(err, "Rserve call failed");    }}rio.e({    filename: path.join(__dirname, "../routes/dump/4.R"),    entrypoint: "run",    data: {        "hello": escape("Hello 'world'!")    },    callback: displayResponse});