forked from noahhl/rookonheroku
-
Notifications
You must be signed in to change notification settings - Fork 1
/
PublicServer.R
56 lines (51 loc) · 1.47 KB
/
PublicServer.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
library('Rook')
source('Apps.R')
myPort <- 80
myInterface <- "0.0.0.0"
#Rook Status
status <- -1
# Stores partial parameter sections
acousticQueries <<- {}
# Status dictionary for parallel jobs
acousticJobs <<-{}
status <- .Call(tools:::startHTTPD, myInterface, myPort)
if (status == 0) {
print("Trying to Start Server...")
unlockBinding("httpdPort", environment(tools:::startDynamicHelp))
assign("httpdPort", myPort, environment(tools:::startDynamicHelp))
rook <- Rhttpd$new()
rook$listenAddr <- myInterface
rook$listenPort <- myPort
# Home page
rook$add(name="base", Redirect$new("/../static/pages/index.html"))
# Submit a job
rook$add(query, name="query")
# Check on the status of a job
rook$add(getStatus, name="status")
## Expose static directories via URL.
rook$add(name="static",
Builder$new(
Static$new(
urls = c('/css','/img','/js', '/pages', '/txt', '/zip'),
root = '.'
),
Static$new(urls='/plots',root=tempdir()),
Brewery$new(url='/brew',root='.'),
App$new(function(env) {
req <- Request$new(env)
res <- Response$new()
res$redirect(req$to_url('/pages/404.html'))
res$finish()
}
)
)
)
print("Server is Running!")
while(TRUE) Sys.sleep(1)
#message("Press Return To Stop Server")
#invisible(readLines("stdin", n=1))
#rook$stop()
return(rook)
}
# If we get here then the web server didn't start up properly
warning(paste("Oops! Couldn't start Rook app, status = ", status, sep=""))