yes, sure. I've a config.R
library(Rook)
myPort <- 80
myInterface <- "192.168.16.81"
.Call(tools:::startHTTPD, myInterface, myPort)
unlockBinding("httpdPort", environment(tools:::startDynamicHelp))
assign("httpdPort", myPort, environment(tools:::startDynamicHelp))
s <- Rhttpd$new()
s$listenAddr <- myInterface
s$listenPort <- myPort
app <- Builder$new(
Static$new(
urls = c("/UI/js", "/UI/css", "/UI/images"),
root = "."
),
Brewery$new(
url="/UI/R",
root="."),
Redirect$new("/UI/R/index.html")
)
s$add(
app=app,
name="Administration"
)
The beginning of the index.html file is the following:
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Administration</title>
<link rel="icon" type="image/png" href="../images/Evolve Logo2.png" />
<link rel="stylesheet" type="text/css" href="../css/DashboardStyles.css"/>
<link rel="stylesheet" type="text/css" href="../css/jquery.jscrollpane.css" />
<script type="text/javascript" src="../js/jquery-2.0.3.min.js"></script>
<script type="text/javascript" src="../js/jquery.jscrollpane.min.js"></script>
<script type="text/javascript" src="../js/jquery.mousewheel.js"></script>
.....
.....
</html>