全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
教大家一个Excel与R通信的策略(不用Rexcel)
zipf
7494 13
2015-10-29
Rexcel是通过COM，而我介绍的方案是基于http协议，原理很简单，就是在R里设置一个http服务器，用VBA构建R代码或格式化数据，从Excel向R发送数据、代码，计算完毕返回结果，以VBA处理返回结果。Rexcel难安装，且也需要学习一些使用技术，对于实际应用而言，很多情况下未必有这个基于http协议的方法易用。强调一点，这里介绍的，是一个策略或方案，不是一个单一的办法，实现这个方案的技术不仅下述一种。

这个方案的难点在于R语言一端的server，见以下脚本，别看这个脚本没几行，为了攒起这个玩意，还真耗了不少搜索。

library(Rook)
library(R.utils)
setRefClass(
'FooBar',
methods = list(
    call = function(env) {
    result <- captureOutput(source(textConnection(rawToChar(env[['rook.input']]$read())))$value)
         list(
             status = 200L,
             body = paste(result,collapse="\n")
              )
                      }
                 )
             )
s <- Rhttpd$new()
s$start(listen="127.0.0.1", port="11269")
s$add(name="response",app=getRefClass('FooBar')$new())

几点说明：
1. 以上脚本可以实现的功能是：运行客户端发的R代码，捕捉输出，以文本格式返回客户端。这样就实现了以Excel为前端，以R为后端的效果。不过，不能返回图像。
2. 为什么选基于http的通信方式？Excel一端用WinHttpRequest发请求很容易，且可以与一个打开的R session反复通信；Clipboard我也试过，也很容易实现，但不知为什么容易出莫名其妙的故障；管道也试过，也不难，但在Windows下，很难实现一直守着一个打开的R session。
3. 本文介绍的以R为后端的通信方案仅可用作本地工具，不适合做网络应用开发，要想做开发，就必须用Shiny之类的了。
4. 上文中的脚本要求Rook包。R里能用来做server的工具不多，Rook是比较简易高效的一个，Linux和Windows下都没问题，还有个更小更快的httpuv，Linux下很好用，Windows下似乎总会导致R崩溃。
5. 向Rook服务器发送请求的长度上限为64kb，这个长度能做的事情还是不少的。
6. 上述代码中最为来之不易的是最长的那句，尤其是“env[['rook.input']]$read()”这部分，其功能是获得http请求中的原始input，Rook的官方说明里并没有给出说明，我是从其他包的源码中找到的这种方法。
7. 客户端以以下 VBA代码为例：

Private Sub CommandButton1_Click()
Dim REQ As New WinHttpRequest '引用Microsoft WinHTTP Services

REQ.Open "POST", "http://127.0.0.1:11269/custom/response/" '注意url后半段中的路径

REQ.Send ("citation()")
Debug.Print REQ.ResponseText
End Sub
8. 基于这个方案，可以利用R编程的优势，把一些复杂的计算过程或者Excel中没有的功能做成宏，提高效率。

上面强调过了，以http通信连接Excel与R只是一个策略而已，具体实现方法很多，再如用Python或Node.js等做一个数据中转用的服务器，在Excel做格式化数据的宏，实现在Excel中选取数据，将数据以文本方式发至中转服务器，R端从服务器读入数据，省去建立数据文件的麻烦。

抛砖引玉而已，有什么其他问题欢迎跟帖。。。
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复
jinkelazzz
2015-10-29 09:46:49
前排学习
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jjxm20060807
2015-10-29 20:40:46
谢谢分享
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jiangbeilu
2015-10-29 21:34:03
如果能有截图操作，就更好了
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

zipf
2015-10-29 23:08:43
一个recipe (Friedman检验)，因为是带宏的，就不使用附件了。
ExcelR.png

1. 在R中运行如下服务器代码：
复制代码
2. 在Excel工程中插入一个模块，置入如下代码：
复制代码
3. 在工作表里放几列数据（3列以上），运行宏"MacroFriedman"，会出现选框，选中数据确定，计算后结果返回Excel，出现于弹出的Msgbox。






二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

fakye
2017-2-26 03:53:19
此帖应该精华
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群