Re: [Rd] concurrent requests (Rook, but I think the question is more general)

From: Richard D. Morey <r.d.morey_at_rug.nl>
Date: Thu, 25 Oct 2012 19:19:17 +0200

On 25/10/12 7:14 PM, Dan Tenenbaum wrote:

> On Thu, Oct 25, 2012 at 8:45 AM, Richard D. Morey <r.d.morey_at_rug.nl> wrote:

>> On 24/10/12 10:55 PM, Simon Urbanek wrote:
>>>
>>> The point is that you need a separate monitoring process or threads. That
>>> process can be R, Rserve or any thing else.
>>>
>>>
>>>
>> Thanks for the tips. This is what I'm currently contemplating:
>>
>> 1. Main interface starts in user's R session, and opens up the interface
>> (HTML/Javascript using Rook package)
>> 2. When analysis starts, Rserve is started, with its own web server, using
>> Rook, for status updates
>> 3. During analysis, main process calls a callback function which uses
>> RSassign() to send progress updates to the Rserve server
>> 4. HTML/Javascript interface can connect to the webserver on the Rserve
>> server to get status updates
>> 5. When analysis is done, use RSshutdown() and RSclose() to clean up.
>>
>> Does this seem reasonable?
>>
>> One problem I'm having is that when I start Rook on the Rserve server, the
>> webserver does not respond (although it is started). Does Rserve only
>> respond to requests on the port assigned for RSclient commands?
>>
>> Best,
>> Richard
>>
>> Here's an example:
>>
>> #######################
>>
>> library(Rserve)
>>
>> ### This works:
>>
>> stuff = expression({
>>
>> library(Rook)
>> s <- Rhttpd$new()
>> s$add(
>> app=system.file('exampleApps/helloworld.R',package='Rook'),
>> name='hello'
>> )
>> s$start(quiet=TRUE)
>> s$browse(1)
>> print(s$full_url(1))
>> })
>>
>> # This will open the browser to the test app, asking for your name
>> eval(stuff)
>>
>> ### This does not:
>>
>> Rserve(args="--no-save")
>> c <- RSconnect()
>> RSassign(c, stuff)
>>
>> # This opens the browser to the correct URL, but the webserver doesn't
>> respond.
>> RSeval(c, quote(eval(stuff)))
>>
>>
>> #####
>> # cleanup
>> RSshutdown(c)
>> RSclose(c)
>>
> This "works" for me if I omit the quote(). I get an error, but the
> webapp seems to work. Also, I didn't eval(stuff) locally, only on the
> server:

I'll try this in a bit and see what happens.

I forgot my sessionInfo()...

 > sessionInfo()
R version 2.15.1 (2012-06-22)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] en_AU.UTF-8/en_AU.UTF-8/en_AU.UTF-8/C/en_AU.UTF-8/en_AU.UTF-8

attached base packages:
[1] tools stats graphics grDevices utils datasets methods base

other attached packages:
[1] Rook_1.0-8 brew_1.0-6 Rserve_0.6-8



R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Thu 25 Oct 2012 - 17:22:19 GMT

This quarter's messages: by month, or sorted: [ by date ] [ by thread ] [ by subject ] [ by author ]

All messages

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Thu 25 Oct 2012 - 23:30:48 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-devel. Please read the posting guide before posting to the list.

list of date sections of archive