0

我正在开发一个将 R 环境与 RApache 结合使用的 Web 应用程序。我使用 AJAX.updater 函数将几个变量发送到 R 脚本，然后返回给浏览器一个 ResponseText 以显示。没有问题，但现在我希望将变量发送到绘制图形的 R 脚本，然后我想将图像返回到浏览器。

我可以在浏览器中显示 R 使用该脚本绘制的图像，例如：

    <% setContentType("image/png")
t <- tempfile()

load(file="/var/www/oraculo/brew/ICER")

png(t, width=3.25, height=3.25, units="in", res=1200, pointsize=4)
plot(G,vertex.size=1,vertex.label=NA)
dev.off()
sendBin(**readBin**(t,'raw',n=file.info(t)$size))
unlink(t)


DONE
%>

另一个发送变量并返回文本字符串的脚本：

new  Ajax.Updater( 'numFermin', '../brew/shortestPath.rhtml',
            {
                'method': 'GET', 
                'parameters': {'autini': autini, 'autfin':centro, 'XarXaj':                    red},
                'onSuccess': function(transport) {

                         txtRespuesta = transport.responseText;

                         if (txtRespuesta.lastIndexOf("Error")==-1){
                            var rutaMin = transport.**responseText**;
                            var accion = "";
                                    var url    = "index.src.php?accion=obtener&rutaMin="+rutaMin+"&numF=1";         
                            document.getElementById("oculto1").src=url;
                         }else{
                                                 ...

使用 RApache 的 GET 变量，我可以在 R 脚本中使用“autini”。

一种可能的解决方案是将图像保存在文件中，但我不太喜欢它。有什么办法可以将“ readbin ”中读取的比特流放入“ responseText ”中，然后在php中构建图像？我应该使用 AJAX 的哪个功能？

谢谢你的时间！

4

1 回答 1

0

我用安装在服务器上的 FastRWeb 和 Rserve 解决了类似的问题，使用 jquery.js 在你的 html 页面中传递这样的 json 格式数据。如果使用此解决方案，一个重要的细节是，如果您尝试使用 $.ajax 检索二进制数据，您将需要复制 jquery.js 并修复 2 行，如http://bugs.jquery.com/ticket/11461中所述

  var myjsondata = '{ "entries": { "Labels": "MyTitle","Order": "1,2,3", "Class": "AM,PM,XF","Hwy": "29,29,31,20,29,26,29,29,24,44,29,26,29,32,49,29,23,24,44,41,29,26,28,29,39,29,28,29,26,26" } }';

   var request = $.ajax({         
        url: "http://Rserverip/cgi-bin/R/myboxplot",
        type: "POST",             
        xhrFields: {
              responseType : "arraybuffer"
        },
        contentType: "application/x-www-form-urlencoded; charset=UTF-8",
        dataType:  "binary",
        processData: false,
        crossDomain : true,
        data: myjsondata 
      });

    request.done(function(msg,ret_status,xhr) {
        var uInt8Array = new Uint8Array(msg);
            var i = uInt8Array.length;
            var binaryString = new Array(i);
            while (i--)
            {
              binaryString[i] = String.fromCharCode(uInt8Array[i]);
            }
            var data = binaryString.join('');
            var base64 = window.btoa(data);
            $(img).attr('src', "data:image/png;base64,"+base64 );
       });

在服务器端，您将需要一个名为 myboxplot.R 的 R 程序，其中包含（例如）以下代码：

 run <- function(MyTable) {
 # read json into data frame
 mytmp <- fromJSON(rawToChar(.GlobalEnv$request.body))
 axes <- sapply(strsplit(json_data[['entries']][['Labels']], ",") , as.character)
 x <- sapply(strsplit(json_data[['entries']][['Class']], ",") , as.character)
 y <- sapply(strsplit(json_data[['entries']][['Hwy']], ",") , as.numeric )
 z <- sapply(strsplit(json_data[['entries']][['Order']], ",") , as.numeric ) 
 mydata <-  data.frame(x,y,z)
 mydata$count <- ave(as.numeric(mydata$x), mydata$x, FUN = length)
 #add the count to the x label
 mydata$x <- factor(do.call(paste, c(mydata[c("count", "x" )], sep = "]-")))
 mydata$x <- paste( "[",mydata$x, sep = "" ) 
 #reorder by z which is the order number
 mydata$reord <- reorder(mydata$x, mydata$z)
 p <- WebPlot(1191, 842)  # A3
 print( ggplot(mydata, aes(reord,y) ) + geom_boxplot (aes(fill=reord), alpha=.25, width=1, outlier.colour = "green") + labs(x = axes[1], y = axes[2]) + scale_fill_discrete(name=axes[3]) + stat_summary(aes(label=sprintf("%.02f",..y..)), fun.y=mean, geom="text", size=3) + theme_bw() + theme(axis.title.x = element_text(face="bold", colour="#990000", size=14, vjust = -1), axis.text.x  = element_text(angle=-90, hjust=1, size=12), plot.margin=unit(c(1,1,1.5,1),"lines"))  )
 p 
 }

阅读 FastRweb 文档，了解该程序的放置位置以及如何设置 FastRWeb。

在服务器端需要更少设置的更简单的解决方案是使用 R websockets 包。对我来说工作得很好。

于 2013-02-05T15:18:42.570 回答