Я хочу отправить переменные в R, а затем R отправляет изображение в браузер

Я работаю над веб-приложением, которое использует среду R с RApache. Я использовал функцию AJAX.updater для отправки пары переменных в R-скрипт, а затем он возвращает браузеру ответный текст для отображения. С этим проблем нет, но теперь я хочу отправить переменную в 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{
                                                 ...

С GET-переменными RApache я могу работать с 'autini' в R-скрипте.

Одно из возможных решений - сохранить изображение в файл, но мне оно не очень нравится. Есть какой-то способ поместить битовый поток, прочитанный в "readbin", в "responseText", а затем создать образ в php? Какую функцию AJAX я должен использовать?

СПАСИБО ЗА ВАШЕ ВРЕМЯ!

Источник

1 ответ

Я решил аналогичную проблему с помощью FastRWeb и Rserve, установленных на сервере, передающем данные в формате json, подобные этой, на вашей html-странице с использованием jquery.js. Одна из важных деталей при использовании этого решения заключается в том, что если вы попытаетесь получить двоичные данные с помощью $.ajax, вам нужно будет скопировать jquery.js и исправить две строки, как описано в 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 );
       });

На стороне сервера вам понадобится программа R под названием myboxplot.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. Работал нормально для меня.

Источник
Другие вопросы по тегам